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NOTES 

The disk softHire library ii hom fully operational 
and you Hill find at the rear of thia iiiue the 
first pages of the Interak User Oroup Index to the 
Public Domain Disk SoftNare Library. 

This has been designed so that you can collect the 
pages, one per disk volume, into a separate 
folder. Updated and additional pages Mill be 
issued as and Nhan required. 


WHERE TO BUY CP/H BOFTMARE 

CP/H v2.2 and v3.e Disk operating system. 

Oreenbank El ectroni cS'/ 460 Nch Chester road, Rock 
Ferry, Birkenhead, Merseyside, L42 2AE. 
051-643-3391. 

’C* language Compilers and Interpreters. 

Grey Hatter Ltd, 4 Prigg HeadoM, Ashburton, Devon, 
T013 7DF.0364-53499. 


It is recommend that you get a special folder to 
place these pages in. It Mill act as • an ever 
growing reference book to the public doialn 
software supplied by the user group. 

Gy adopting one page per volume, the librarian can 
re-issue a volume page to Include any information 
gained on that volume since it's first isiue. 

Ramember if you have any gems for the ‘Public 
Domain" send them to Charlie who will make them 
available to everbody. Fane is within your roach. 

Your Disk Librarian la i- 

Hr C.V.Bridgstock, 32 Nimborne ave, Thingwall, 
Wlrral, Herseyside, L6I 7UI.. Phone 051 -646-3000. 


A new VDU-2K character generator Eproa is 
available from Graenbank, order as C62V0200. It 
alters the set to be true ASCII. 

Changes are i- 

Exelamation mark display improved. 

Pound sign changed to be *'* 

Divide sign changed to be *1* 

Has Chessmen for Disk Llbra'v version of 
CHESS643.C0H. 


A new card has been released by Grcenbank. It is 
called a PRN-3 and is a parallel printer 
interface. It will connect a printer to the 
Interak Isbus. Details from Greenbank. 


CP/H plus Is now available. It needs a 64k Ra* 
capable system as a minimum. It will let you 
expand your system past the 64k limit of CP/k 2.2. 
CP/H plus is sometimes called CP/H 3.0. Contact 
Oreenbank for details. 


20RK,1,2 and 3. Sophisticated adventure games. 
Anita Business Systems Ltd, London. 01-253-2444. 


HEHBERS TAPE SOFTWARE - FOR SALE 

You eay use this section to sell tape software to 
other users. Send a brief description of your 
product giving details of its distribution and 
price, to the EDITOR. Note that vou will be 
responsible for the support of your own product. 
See CONTACTS for 'ORDER FROM' addresses. Software 


suppiltd is 

the r esponsibi1 i ty 

of the 

■ORDER 

FROH'. Please deal directly with 
in the evint of buga ect. 

the "ORDER 

FROM" 

MACHINE CODE 

NAHE 

DESCRIPTION 

ORDER FROHi 

COST 

FI6F0RTH 

FORTH COHPILER 

D.CAHBELL 

£15.00 

INTERPLAY 

GB DRIVER 

HttH ELECT 

£ 4.00 

HEGABUG 

DEBUGGER 

P.VELLA 

£13.00 

VELTEKT 

TEXT EDITOR 

P.VELLA 

£ 5.00 

HAL BASIC 

14K BASIC 

P.VELLA 

£40.00 

lYBASlC 3A 

ION TAPE) 

OREENBANK 

£15.95 

2VBAS1C 3C 

(IN ROH) 

GREENBANK 

£27.75 

lYHON 2.V203 

HONHOR PROGRAM 

OREENBANK 

£15.95 

XIAL BASIC 

NAME 

DESCRIPTION 

ORDER FROMi 

COST 

ANARl 

DANE 

H.SAUNDERS 

PP 

BIORYTHHS 


H.SAUNDERS 

PP 

CHAR DES 

CHARACTER BUILDER 

H. SAUNDERS 

£ 3.50 

I-SPr 

6AHE 

H.SAUNDERS 

PP 

SOUND DEV 

SOUND DEVELOPMENT 

H. SAUNDERS 

f 5.50 


Keyi PP • Postage t packing. 

PQA ■ ^lease enquire (Phone for price.) 


if you can, please send items for inclusion in the 
newsletter "on-dvsk". I will copy the disk and 
return your original as fast as possible. For ycu 
it gives the greatest chance that 1 don't 
introduce errors during the re-type. For me it 
saves on finger wear. 


David has mentioned to me that he is working on an 
00 column VOU design. He has chosen the driver 
chip and has reached tne point of trying to fit it 
all on a new card. I think that this is tne best 
Interak related news I have, heard for agea. Tn# 
64 column screen is only just tolerable with disks 
and inhibits many software pakages. i wiih David 
well in the design and look forward to the day of 
It's release. 


If vou are held back from installing your 3.3' 
disk drives due to the lack of a mounting kit you 
may like to try this idea in the short term. Get 
an old unwanted card and cut 2* off of it at tr>e 
connector end. Hount the disk onto the card and 
alide it into the rack. You can prevent the 
assembly from moving backwards and forwards bv a 
sticky tape wrap on the card guides and it will 
quite happily chug away until the mounting kit is 
received. If you don’t have an old card any type 
of rigid board will suffice. 


Bab Eldridge. 


CONTACTS 


BACk ISSUES... 


BOCfS. 

O.CAHBELL .... 
DISK LIBRARY . 


EDITOR. 


OREENBANK .... 


HLH ELECT .,.. 
H.SAUNDERS ... 

HEHBERSHIP.... 


P.VELLA . 

SUBSCRIPTIONS. 


Can be obtained fromi - 
D.Parkins. Oreenbank Electronics, 
460 New Cheste' road. Rock Ferry, 
Birkenhead, Herseyilde, L42 2AE. 
Lend, borrow, and swop books via i- 
R.E.Bowyer, 45 Ford drive, 

Yarnfield, Stone, Staffs. 

153 Lowe' Fairmead road, Yeovil, 
Somerset, GA21 5&R. Tel 0935-76262. 
Public domain disk software from t- 
Hr C.V,Gr 1 dgstock, 32 Nimborne ave, 
Thingwall, Nirral, Herseysidi, 

L61 7UL. Phone 051-64B-3000, 

Send submissions to >- 
R.Eldridge, 2S Wycherley Close, 
Blackheath,London,SE3 7QH. 

D.Pa'kins, Oreenbank Electronics, 
460 New Chester road, Rock Ferryj 
Birkenhead, Herseyside, L42 2AE. 

8 Ayre view, Gride, Isle of man. 

H.Saunders, 7 Drumcliff road, 
Thurnby Lodge,Leicester,LE5 2LH. 

To join, renew or change your 

detaiIB contact i- 
Tom Evani, 129 Cranbourne Haye, 

Hayes, Hiddlesex, U04 DKR. 

19 Ford Drive, Yarnfield, Staffs. 
For information and payments please 
con tact I - 

Tom Evans, 129 Cranbourne Naye, 

Hayes, Hiddlesex, UG4 OHR. 
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M0RD9TAR. Comiind tiqutncti 
SIGN ON MENU 

D Edit • docutint fill, 

E Rtnait • tilt. 

F Snitch dirtctory lifting on/oft, 

H Stt htlp Ifval. 

i Changt loggtd diik drivt. 

N Mergi-prlnt optional. 

N Edit a Non-docuiint fill. 

0 Copy a flit. 

P Print a flit. 

R Run a program. Coi fill. 

* Exit to CP/H. 

'f Daliti a fill. 

r.mSI!!"" ”'’*** littir, 

LUneOR 

'A Curior lift ont nord. 

''F Curor right oni nord. 

■'9 Curaor lift ont charactir. 

Curior Itft ont charactir. 

^0 Curior right ont charactir. 

''E Curior up ont lint. 

■'X Curior donn ont lint. 

^QS Curior to itart of llni lift ildi. 

''flD Curior to ind of lini right lidt. 

'‘OE Curior to top of icriin. 

OX Curior to bottoi of icriin. 

“'OR Curior to itart of fill, 

^OC Curior to ind of flit. 

*08 Curior to itart of larktd block. 

•'OK Curior to ind of larktd block. 

*0P Curior to prtvloui poiitlon. 

*0V Curior lourct. 

*08-*Q9 Curior to larktr B-9. 


SCROLL 
*C Scroll 
*R Scroll 
*M Scroll 
*Z Scroll 
■'ON Scroll 
*02 Scrol1 


up ont icrtin. 
down ont icrttn. 
donn ont Ilni, 
up ont lint, 
donn continuouily. 
up continuouily. 


DELETE 

*Y Otliti 
*T Oaliti 
*0 Dtliti 
*KJ Dtltti 
*KY Dtliti 
*0Y Dtltti 
*0dtl Diliti 
DEL Dtltti 


lint, 

word right, 
charactir right, 
addltional flit, 
larktd block, 
to tht ind of thf lint, 
to Itart of lint, 
charactir lift. 


TABS AND KARGINS 
TAG Tab. 

*I Tab 

*0G Paragraph tab. 

*0N Cltar tab itop. 

*01 Sit tab atop, 

*0L Sit lift largin. 

*0R Stt right largln. 

*0X Rtitat largin. 

*0F Takt aargini and tabi froa lint. 

SNITCHES 

*KF Fill dlrictory on/off, 

*0D Oliplay print controli on/off 
*0H Hyphtn hilp on/off. 

*0J Right juitificat 1 on on/off. 

*0T Rulir diiplay on/off. 

*0V Variablt tabi on/off. 

*0N Herd wrap on/off, 

*0P Pagt brtak diiplay on/off 
*V Initrt on/off. 

CARRIAGE RETURNS 

RETURN Iniirt a carriagt rtturn, curior donn. 

*K Iniert a carriage return, curior itlll. 

*N Iniert a carriage return, curior itill. 


FIND/REPLACE 

*L Find/replaci again, 
^OA Rilace 
*0F Find 

'00 Repeat next coaiand. 


*01 Set tab atop. 

*0L Sat left largin. 

*0R Set right aargin. 

*<)H Set htlp 1 tvil, 0,1,; 
*06 Set lint ipacing. 
*K0-9 Set/hldi aarkir 0-9 


*KB Mark block beginning. 

*KK Kirk block end. 

*KC Copy larktd block block. 

*KV Kovt larktd block. 

*KH Hidt/dliplay aarktd block. 

*KN Write larked block to additional file. 

DISK DRIVE 

*KL Change logged dlik. 

ADDITIONAL FILE 

*KE Ranaat additional file. 

*K0 Copy additional file. 

*KP Print additional file, 

*KR Read additional flit. 

*KM Write narked block to additional file. 

SAVE OPTIONS 

KD Flniihtd edit. Save and return to aain atnu. 
*K0 Abandon edit. 

*KS Save and continue editing. 

*KX Save edited flit and exit to CP/N. 


KISC 

*B 

*U 

*0C 

*0E 

*PA-'PZ 

'PN 

'PO 

ESCAPE 


Refori the paragraph. 

Interrupt current coaiand. 

Center text on lint. 

Soft hyphen entry. 

Enter 'A-'Z into text. 

Maki next line overprint lait lint. 
Enter non-break ipaci. 

Error rtltait, 


LINE FEED Saie ai 'J, 

EXPLAIN THINGS 

*i)I Explain lenu pagti and text entry 
*JB Explain paragraph rtfori worki. 
*JD Explain print dlrictlvii. 

*JF Explain hott flaga Nork. 

*JK Explain tabi and aargini, 

*JP Explain place narkeri. 

*JR Explain the ruler lint. 

*JS Explain itatui lint. 

*<)V Explain loving text. 

DOT C0KKAND8 
•LH Lint hlght 
.PL Paper length 
•KT Kargin at top 
.KB Kargin at bottoi 
.HK Heading aargin 
•FK Footing aargin, (page t aargin) 
.PC Page £ coluin 
.PO Page offaet 
.PA Neu page 
•CP Conditional page 
•HE Heeding 
.FO Footing 
.OP Oilt page nuabera 
•PN Page nuiber 
.CW Character Midth 
•SR Subicrlpt roll 
•UJ Micro-juitify 
.BP Bidirect print 
. 16 Coaient 
CoBient 
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MODEM MANIA! 

The Taecomm Bulletin Board 
has been running with a 
WS4B00 modem for a couple 
of months now, giving our 
users a choice of speeds, 
V81 300/300 and V23 1300/75, 
these are auto selected by 
the modem wlien it receives 
the call, it then evaluates 
the carrier tone, and tells 
the Interak to chaitge the 
COMl card to suit, pretty 
nifty eh? Anyway no 
problems with the modem as 
yet, a couple of users had 
problems, but this turtted 
out to be the way they had 
set up their modems, and 
software, needless to say 
we managed to fiiid the 
individual problems between 
us, and sort things out. The 
software that runs the 
board, was reasonably easy 
to change to suit the new 
modem, but the modem 
control segment is 
radically different running 
with the "Hayes'* commaixis 
compared with the old Datel 
SB modem, and no 
alterations to the COMl 
card were needed, just 
piulled the plug on the old 
SB, aitd plugged in the new 
hS4000, that made life a bit 
easier for me. The only 
real problem encountered 
in re-writing the software, 
was that the return codes 
from the modem are Issued 
in ascii instead of hex (ie. 


38h instead of 08h), the 
modem mai-ual did iiot warn 
about this "feature", 
therefore making things 
very frustrating when 
testii-»g, it took me two days 
of mucking around before I 
eventually twigged what I 
was doing wrong (yes I k*-ow 
I’m dim). Apart from that 
little problem, its a pretty 
good little buy, ai-td I 
ui'Klerstaitd that Greenbaiik 
is also stocking this model, 
so if you fancy one, splash 
out the ackers. 

SOON (ish)! 

I will hopefully be adding an 
extra SIG section to the 
Taecomm Board (if we get 
ei-KXigh Interakers using it), 
this will be dedicated to 
Interak users only, and will 
be accessed by a code that 
will be ii'uiluded in the user 
log, also for those lucky 
enough to have a colour 
display, aivi the software 
support, we will be adding 
"Prestal' compatible type 
graphics aivd metius. Telecom 
has supplied me with a 
software guide to 

protocol, and text graphics, 
so I will be "trying" to get 
this running on the board 
as soon as possible, but I'to 
promises on that one, cos a 
lot of long witided testing 
will be needed, and depeiids 
upon the goodwill of 
someone actually calling 


the board to do repeated 
(real pain, and expensive) 
tests of the software. If 
anyone has any knowledge 
on the subject of comms 
graphics, let me know, I 
can do with all the help I 
can get on this one. 

LURKING CLONE 

Furtively lurking in amongst 
the Interaks is a Iona IBM 
clone that is slowly 
revealing its hidden 

powers as mora software is 
becomittg available to me. It 
is rapidly becoming a very 
valuable tool as I become 
more used to the operating 
system (PCDOS/MSDOS), and 
is very similar to t^M but 
much more forgiving. 1 have 
been using it mainly for 
graphics at the present, 
at'Kj since I fitted the 8087 
maths co-processor, it 
madly calculates all 
graphic construction at a 
speed far beyond the 
original configuration of 
the machine. The most 
recent application was the 
scaled graphic 

re-construction of room, 
and furniture fittings, to my 
surprise everything 

actually fitted when 
assembled in real life! It is 
a pity that this type of 
software is not available 
for CFyM type systems. It 
should be relatively easy 
as an excercise to 


implement the 80B8/808& + 
MSDOS to the Interak bus 
without too much expense. 
MSDOS operating system and 
maixials are available now 
for as little as 50 quid or 
thereabouts, this will give 
access to a very large 
amount of modern software, 
aitd a huge public domain 
sector of softwai 
comparible to C^M, but 
very much up to date. This 
software is also compatible 
with the later 3S bit 
versions of the same 
stable processors, that 
are coming into the market. 
ANYONE INTERESTED IN IBM 
COMPATIBILITY?? 

ARCADE TRAK-BALL 

Below is a circuit diagram 
for interfacing a Trak-Ball 
to your beloved Interak, 
Trak-Ball used in this case 
was an ex-Atari pub game, 
complete with fungus from 
old beer droppings (yuki), 
this I obtained from a local 
arcade game maintenance 
chappy for 15 quid, and it 
is very tough with real ball 
bearings, and fings. The 
circuit is tried and tested, 
all you iteed is a little bit 
of software to read it, and 
that is available if 
required. 


Sees ya5..Tam. 
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PART SCREEN DRIVER FOR THE VDUK/2K 
By R.A.CoMdiry 

Tht follONing it i brief detcrlption of i part 
tcretft driver for the VDUK, there it no retton why 
it ihould not tlto work on the VDU2K, though as I 
do not pottet one this hat not been teited (thould 
only be necessary to change the equate WIDTH to 
64). The routines allow a nuaber of part screens 
to be opened, at present liaited to Ifl by the 
control blocks allocated in the prograa (easily 
changed). Once opened each part screen (which aay 
be of any siie froa 2 characters to a full 
screen), nay be written to independently by 
quoting the streaa nuaber in the call (in the 6 
register). Each part screen will scroll 
(horljontally if the screen is a single row), the 
cursor may be selectively turned on or off for 
each part screen, and each aay be either in 
graphics or text aode. Certain control codes are 
inpleaented as detailed below if the screen is in 
text aode, else all characters are treated as 
printable. A snail test routine is given at the 
end by aeans of a deeonstration of soae of the 
capabilities. 

In case there are any 180 boffins out there, 1 
would aentlon that this is the first 180 assaabler 
I have written and it aay therefore be a bit 
eluasy in places. 1 aust adait I found the 
Instruction set difficult to get to grips with. 
There seeaed to be so aany Instructions and yet 
never the one that I wanted to do the job. All 
suggestions welcoae !!! 

There is reasonable error checking in the 
routines, though I would'nt claia then to be 
uncrashable, Sone of the control codes used are 
non-standard, however they aay be easily changed 
by changing the table CONTAB. 

The Interfaces are very staple, consisting of 
calls to the following i- 


OPEN(X,Y,X',Y ') X • start coluan . passed in B reg 

Y • start row .... passed in C reg 

X'w end coluan ... passed in 0 reg 

Y'a end row passed In E reg 


MRITE(Char,Streaa,a,Yl) 

Char ■ Character to write. 

Passed In A reg. 

Streaa ■ Streaa returned in OPEN. 

Passed in 8 reg. 
tX,Y) ■ Cursor coordinates for 
BDve cursor coaaand. 

Passed in D,E regs. 

The character aay be any character code, if the 
aode is graphics (selectable by character code 
12H> then the character will siaply be printed 
else certain control characters are available as 
detalled below i- 

Clear part screen - 0CH 
Carriage return - 0DH 


line feed - 0AH 
Cursor south - 0AH 
Backspace - esH 
Cursor west - OBH 
Horizontal tab - 09K 
Cursor east - e9H 
Vertical tab - 0BH 
Cursor north - 0BH 


Delete (destructive backspace) - 7FH 

The following are additional functions using DC 
codes, soae of these are non-standard >- 


Cursor toggle 

- IIH 

Mode toggia 

- 12H 

Hoae cursor 

- 13H 

Position cursor 

- MH 


N8 each call to toggle eg the cursor will Invert 
the state. 

Error codes returned In A reg )- 
00H - Write successful 

EAH - For position cursor, cursor Y coord Is 
outside part screen. 

EBH - For position cursor, cursor X coord is 
outside part screen. 

EEH - The streaa specified is > aax part screens. 
EFH - The streaa specified is not currently open. 


Note that the coordinates delinit the part screen 
and are inclusive of the coluans and rows 
specified. There is nothing that prevents the 
part screens being overlapped and soae interesting 
results will be obtained If you do this (not 
useful, just interesting!). Seriously, provided 
soae disipline is used this deficiency can be 
useful, eg you could open a largish part screen 
which can have titles written Into it, borders for 
saaller part screens and can be cleared in a 
single call etc. 

Error code returned In A reg t- 
00H - Open successful 

F9H - A single character screen has been defined. 
FAK - Part screen defined Is > aax no. of rows. 

FBH - Part screen defined is > aax no. of cols. 

FCH-Y>y 

FDH - X > X' 

FFH - No free streaas 

Streaa returned in 8 reg, valid only if A-00H 

CLOSE(Streaa) Streaa ■ streaa returned in open. 

passed in 8 reg. 

Error code returned in A reg i- 

80H - Close successful 

DEH - Streaa specified is > aax streaa. 

OFH - The streaa specified was not currently open. 


1 V0UK/VDU2K PART SCREEN DRIVER 

1 Author R.A.Cowdery 

1 Date 6th June 1986 

I Issue 1 

IDESCRIPTION 




1 This 

set of 

routines enables up to a 

(user 

1 definable) nuaber of part screens to 

be opened 

1 and 

written 

to 



1 INTERFACES! OPEN 



1 

CLOSE 



1 

WRITE 




ORO 

BABOBH 




LOAD 

BABBBH 



lOeneral 

Equates 

1 



NOTALLi 

EOU 

BFFH 

|SCB NOT ALLOCATED 

MXPTi 

EOU 

10 

|MAX PART 8CREEN8 


SKIFTi 

EQU 

5 

(MULT BY 32 


BASE! 

EQU 

BFBBBH 

(ROW 1 ADDRESS OF 

SCREEN 

NlDTHi 

EOU 

32 

{SCREEN WIDTH FOR 

VDUK 

DEPTHi 

EQU 

24 

{SCREEN DEPTH 


SCBSIZEi 

EOU 

8 

{SIZE OF SCREEN CONTROL 




{BLOCKS 


NKSSHEi 

EOU 

13 

(SIZE OF WORKSPACE BLOCK 

MAXCONTi 

EQU 

IS 

{MAX CONTROL CODE 

USED 


I 

t ERROR CODES 
f staOPEN ERRORS*** 

NOSRTi EQU 0FFH jALL STREAMS CURRENTLY 

{OPENED 

X8RTi EQU 0FDH iCANT FINISH BEFORE YOU 
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(START 

DH ENDCONT 

YQRTi 

EQU 0FCH 

(DITTO FOR Y 

DU ENDCONT 

COLTOBIQi 

EQU BFBH 

(PART SCREEN LARGER THAN 

DH ENDCONT 



(HAX COLS 

DH CT 

(CURSOR TOGGLE 

ROHTOBIOi 

EQU 0FAH 

(DITTO FOR ROWS 

OH MT 

(MODE TOGGLE 

SIN 6 LECHAR 1 EQU eF9H 

(A SINGLE CHAR IS NOT A 

OH HC 

(HOME CURSOR 



(VALID SCAN 

DH PC 

(POSITION CURSOR 

I •♦•WRITE 

ERRORS^^* 




STRNOTOPENi EQU 0EFH 

(THE STREAM SPECIFIED IS 

) OPEN (X,Y,X-,Y 

) 



(NOT OPEN 

1 FUNCTION! Thit 

is the aain control routine of 

STRTOBISHi 

EQU 0EEH 

(STREAM >10 

1 thr 

JPEN function. 

XCURlNVi 

EQU BEBH 

(FOR POSITION CUR,X IS 

( INPUTS 1 B-Start col X 



(OUTSIDE SCR 

1 C-Start rOH Y 

YCURINVi 

EQU BEAN 

(DITTO FOR Y 

1 D-End 

col X' 




1 E-End 

row Y' 

1 •••CLOSE 

ERRORS^** 


1 OUTPUTSi B-Strean nuabtr 

8 TRNOTOPNC 

1 EQU eOFH 

(THE STREAM HAS NOT OPEN 



STRTDBIOCt 

EQU 0I>EH 

(STREAM>10 

OPEN!LO IX,NKSP 

(SET UP WORKSPACE 




LD (1X^0) ,B 

(COL 

SUCCESS! 

EQU 00 

( •••SUCCESS CODE»»* 

LD (tXfl),C 

(ROH 




LD (IX+2),D 

(COL' 

(OFFSETS INTO SCB 


LD (IX>3) ,E 

(ROH' 

SCBSTRi 

EQU 0 

(STREAM NUMBER, FFH HKEN 


( •♦•OPEN ERROR CHECKS^^* 



(UNALLOC 

LD A,D 

)X' 

SC 6 SSH 1 

EQU I 

(X COORDINATE (COL) 

CP B 

(X ’-X 

SC 6 SSV 1 

EQU 2 

(Y COORDINATE (ROH) 

JP M.ERRl 

(X>X‘ 

SCBSEHi 

EQU 3 

|X' COORDINATE (COL'> 

LD A,E 

|Y- 

SC 68 EV 1 

EQU 4 

(Y‘ COORDINATE (ROH'l 

CP C 

(Y'-Y 

SCBCUXi 

EQU S 

(CURSOR X COORDINATE 

JP H,ERR2 

(Y>y 

SC 6 CUY 1 

EQU 6 

(CURSOR Y COORDINATE 

LD A.HIDTH 


8 C 8 ATI 1 

EQU 7 

(STATUS HORD 

DEC A 





CP D 

(HIDTH-X' 

(BIT DEFINITIONS FOR 8CBAT1 

JP H,ERR3 

(X'>HIDTH 

8 C 68 OR 1 

EQU 0 

(BIT 0, NORMAL-0, 

LD A,DEPTH 




( ORAPHICS-1 

DEC A 


SCBBCUi 

EQU 1 

(BIT 1, CURSOR ON-0, 

CP E 

(DEPTH-V 



I CURSOR OFF-) 

JP M,ERR4 

rY'>DEPTH 

(STORAGE ALLOCATIONS 


LD A,B 

1 X 

WKSPi 

OS NKSSIZE (WORKSPACE BLOCK! 

CP D 

(X'-X 




JP NZ,CONT 

(XOX' 

SCBli 

08 NOTALL 

(SCREEN CONTROL BLOCKS 

LD A,C 



OS SCBSIZE- 


CP E 

(Y'-Y 

SCB2I 

OB NOTALL 


JP NZ,CONT 



DS SCBSIZE- 


JP ERRS 

(SINGLE CHAR SCREEN 

SCB3i 

OB NOTALL 


CONTiCALL ALLOCATElALLOCATE A FREE SCB IF POSSIBLE 


DS SCBSIZE- 


CP 0FFH 

(ALLOCATION SUCCESSFUL 

SC64I 

06 NOTALL 


JP Z,EXIT 

(ALL STREAMS ALLOCATED 


DS SCBSIZE- 


PUSH AF 


SCBSi 

08 NOTALL 


CALL INIT 

(INITIALISE ALL FIELDS IN SCB 


DS SCBSIZE- 


CALL CLEAR 

(CLEAR THE ALLOCATED PART SCREEN 

SCBfri 

OB NOTALL 


CALL SCURSOR (TURN ON THE CURSOR AT RELATIVE 


OS SCBSIZE- 



(S.S 

SCB7I 

OB NOTALL 


POP 6 C 

(STREAM NUMBER IN 6 


09 SCBSIZE- 


LO A.SUCCESS (SUCCESSFUL EXIT 

SCBBi 

06 NOTALL 


JP EXIT 



DS SCBSIZE- 


ERRhLD A.XORT 


SCB9i 

OB NOTALL 


JP EXIT 



DS SCBSIZE- 


ERR2iLD A,YORT 


8C610I 

OB NOTALL 


JP EXIT 



DS SCBSIZE- 


ERR3!L0 A.COLTOBIO 




JP EXIT 


SCBLi 

ON SCBl 

(SCREEN CONTROL BLOCK LIST 

ERR4iLD A.ROHTOBIO 


DW SCB2 


JP EXIT 



DH 8CB3 


ERRSiLO A.SINGLECHAR 


DW SCB4 


JP EXIT 



DH SCB5 


EXITtRET 

(OPEN COMPLETED 


DH 9CB6 


DB 0FFH 



DH SCB7 





OH SC 6 B 


1 ALLOCATE () 



DH 8CB9 


! FUNCTION! Allocatai a (rt SCB (roa tht pool o( 


DH SC610 


1 SCB 

’ 1 




1 INPUTS 1 NONE 


CONTROLTAB 

OH ENDCONT 

(CONTROL TABLE 

1 OUTPUTSi A-Strean nuoibtr (1-10), or FFH no 


DH ENDCONT 


1 (raa 

SCB'i 


DH ENDCONT 


1 HL - 

Pointer to start of allocated SCB 


DH ENDCONT 


1 LOGIC r FOR 

n-ltol 0 


DH ENDCONT 


t DO 



DH ENDCONT 


1 pointer-lSCBL*n] 


DH ENDCONT 


( IF 

pointerlSCBSTROFFH THEN 


DH ENDCONT 



BREAK 


DH BS 

(BACKSPACE 

1 ELSE 


DH HT 

(HORIZONTAL TAB 

( OD 







DH VT iVERTICflL TAB ALLOCATEiLD B,00 jLOOP COUNTER 

DH CS ICLEAR SCREEN LO IY,SCBL-2 jBASE OF TABLE -2. ALLOW 

DU CR iCARRIDOE RETURN I FIRST INC 
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ALLOOPi INC lY {STEP TO NEXT 

INC lY |0R FIRST ENTRY 

INC 8 I BUMP LOOP COUNTER, ALSO 

\ STREAM NUMBER 

LD L,(IY+S) |ADR OF SCB AT STREAM NUMBER 
ID H,<IY>1> |IN HL 

LD A,(HL) iBCBSTR IN A 

CP BFFH ITHIS SCB ALLOCATED? 

I SCBSTR-FFH IF FREE 
JP 2,FOUND |N0, 80 CLAIM IT 

LD A,B (CHECK FOR END OF SCB'S 

CP MXPT (END? 

JP NZ,ALLOOP |N0, 80 TRY NEXT SCB 
LD A,0FFH 

RET (FAIL EXIT 

FOUNDi LD A,B (STREAM NUMBER RETURNED IN A 

RET (SUCCESSFUL EXIT 

.... 

( INIT (SCB POINTER,STREAM NUMBER) 

( FUNCTIONt Inltlaliit all fialdi in tht allocattd 
( SCB 

I INPUTSi A ■ Straaa nuabtr (1-10) 

I HL" Polnttr to allocattd SCB 

t OUTPUTS! Nona 

I........ 

INITtPUSH HL 

POP lY (MAKES INDEXING EASIER 

LD B,(IX«0) (RESTORE REQ8 FROM WORKSPACE 

LD C, (IX + i) 

LD D,(1X*2) 

LD E, (IX>3) 

LD (IY«SCBSTR),A (STREAM NUMBER 
LD (lY^SCBSSH),B (X 
LD (lY^SCBSSV),C (Y 
LD (lYfSCBSEH),D (X' 

LD (IYf6CB8EV),E |Y' 

LD (lY^SCBCUX),B (INIT CURSOR POSITION HOME 
LD (IYt8CBCUY},C 

LD (IY*8C8AT1),08 (CURSOR ON, NORMAL MODE 

POP HL (LEAVE TIDY 

RET 


CLEAR (WORKSPACE) 

FUNCTION! Cltar tha allocattd part acrttn to ipaca 
INPUTS! NKS0 - START COL (X) 

NKSl * START RON (Y) 

NK92 ■ END RON (X') 

NKS3 ■ END COL (Y') 

OUTPUTSi NONE 

WORKSPACE USAQEl NKS4,5 • BASE*(Y»NIOTHl«X 

HK86 ■ (Y'-Y)*! 

NK87 • (X--X)*l 

NK9B • HIDTH-(X'-X) 

LOGIC! Sat up HorktpacB 
Start - NKS4,S 
FOR n ■ 1 TO NKS6 
DO 

FOR a > 1 TO NKS7 
DO 

(■tart] I" apica 
inc atart 
OD 

itart - ftart * NKS6 
OD 


CLEARi CALL SETUPHK845 ( SET UP WORKSPACE 
CALL SETUPHKS6 
CALL 8ETUPNK87 
CALL SETUPNKSB 

LD H,(IX*4) I START - NKS4,S 
LD L,IIX*S) |HL - BASE * (YtWIDTH) * X - 
(START 

(FOR N - 1 TO NKSB 

OUTER! LD (OUTER LOOP COUNT IN B, NUMBER 

(LINES 

I FOR N > 1 TO NKS7 
LD C,(IX*7) (INNER LOOP COUNT IN C, 

(NUMBER COLS 

( (START] I■ SPACE 

INNER! LD (HL),20H (CLEAR CELL 

( START > START * 1 

INC HL (NEXT CELL TO CLEAR 

DEC C (LAST LINE CELL OF THIS PART 

(SCREEN 

JP NZ,INNER (NO 
( START - START * NKSS 


DEC B (ALL LINES OF THIS PART SCREEN 

(CLEARED? 

JP 2,DONE (YES 

LD (1X*6),B (SAVE OUTER LOOP COUNT 
LD C,(IX*8) (C > KIDTH-(X-X') 

LD 8,00 (READY FOR ADD 

ADD HL.BC (HL * START * NK68 
JP OUTER (CLEAR NEXT LINE 

DONE! RET (ALL CLEARED 

( 

( SET UP WORKSPACE 4,5 
8ETUPNK849I 

LD L, (1X41) (Y 
CALL ROWNO (CALC NIDTHtY 

LD BC,BASE (SCREEN BASE ADDRESS 

ADD HL,BC (HL > BASE * (WIDTHaY) 

LD C,(IX4B) |X 
LD B,00 (READY FOR ADD 

ADD HL,8C (HL - BASE * (NIDTHaY) * X 
LD (1X44),H (SAVE RESULT IN HKS4,S 
LD (1X4S),L 
RET 
I 

( SETUP NKSB 
SETUPWKSBl 

LD A,(1X43) (Y' 

LD B,(IX4n (Y 

SUB B (A • V’-Y 

INC A 

LD (1X46),A (HKS6 • Y'-Y 
RET 
I 

( SETUP HK67 
8ETUPHK87I 

LD A,11X42) (X' 

LD B,(1X4B) (X 

SUB B (A • X’-X 

INC A 

LD (1X47),A (HK87 - X'-X 

RET 

» 

t SETUP NKSS 
SETUPNKSBi 

LD A,WIDTH (SCREEN WIDTH 

LD 6,(1X47) (X'-X 

SUB 8 

LD (1X48),A (NKSS > WIDTH - (X'-X) 

RET 

I 

RONNOi 

( Multiply roM (Y) by nuabtr ot coll (X) 

( Doublt langth (hitt ot L by factor ihift 
t (10 for VDU/2K) 

( Raault In HL, BC cerruptad 
P 

LD B,SHIFT (SHIFT FACTOR 
LD A,00 (USE A AS UPPER BYTE OF DOUBLE 

(LENGTH RES 
CCF 

ROLOOPiSLA A 
SLA L 
ADC A,00 
DEC B 

JP NZ,ROLOOP 
LD H,A 
RET 


WRITE (CHAR,STREAM,IX,Y]) 

FUNCTION! This !■ tha aain control routina of 
tha WRITE function, Tha charactar Mill ba 
Mrlttan at tha currant cursor position on tha 
noainatad part scrtan. If appropriate a CRLF Mill 
ba dona and if tha last line the scrtan Mill ba 
scrolled. Tha folloHlng control characters 
■ay ba used in text (noraal) aoda 


Clear screen 

0CH 

Carriage rat 

SDH 

Lina feed 

BAH 

Back space 

08K 

Horl 2 tab 

B9H 

Vert tab 

06H 

Delete 

7FH 


Tha folloMing device control codas are also used 
as they are fsM in nuabar rather than use ascape 
■aguancas 

Cursor toggle ! DCl - IIH 
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node toggle 
Hoee curtor 
Poiltlon cur 

The pereieter 

curior 
INPUTSi 


i DC2 - 120 
1 DC3 - 13K 
I 004 - 14H 

(X,Y] are only ueed for poeltion 


A>Charaeter to Nrite or a control 
character 

BaStreaa nuober for part acriin 


D"X coordinate 
E>Y coordinate 
OUTPUTBi A-Error code 


NRITEi 


nAXOKi 


PUSH AF 


CP 07FH 

(DELETE CHARACTER? 

LO A,B 

(STREAM NO 

JP NZ,WRITABLE 

(NO 

CP MXPT+1 

(MAX NO OF PART SCREENS 

CALL DELETE 


JP N,nAX0K 

(LESS THAN HXPT 

JP ENDWRITE 


POP AF 

(DISCARD 

1 


LD A,8TRT0BI6H 


( FINALLY THE BIT WHERE WE WRITE THE CHARACTER 

JP EXITW 


WRITABLE! 


LD IX,HKSP 

(GET ADDR OF WORKSPACE 

LD A,B 


LD (1X^13),D 

(SAVE X,V COORDS 

LD H,(IX>9) 

(HIGH BYTE OF ADDRESS UNDER 

LD (IX«14),E 



(CURSOR 

CALL 0ETSC6 

(CONVERT STREAM NUMBER TO 

LD L,(IX+ie) 

(LOW BYTE 


(SCB ADDRESS 

LD (HL},A 

(WRITE THE CHAR TO SCREEN 

LD A,(lY+SCBSTR) (CHECK FOR 6TREAH 

CALL CHKEND 

(DO THE NECESSARY FOR EOL OR 


(ALLOCATED 


(EOS 

CP 0FFH 


ENDWRITEi 


JP NZ,CONT2 

(ALLOCATED 

LD A,SUCCESS 


POP AF 

(DISCARD 

EXITWiRET 

(ALL DONE 



.........a.......... 


JP EXITW 


1 ( 0ET8CB (STREAM,WORKSPACE) 


C0NT2t 

8CB ADDRESS IN lY, WORKSPACE ADDRESS IN IX 
SET UP WORKSPACE AS FOLLOWS ... 


NKSe 

WK81 

WKS2 


X (COL) 

Y (ROW) 
X'(COL') 


LD B,(IY4SCBSEV) 

LO (IX>3) ,B 
CALL 8ETUPWKS4S 
CALL SETUPWK66 
CALL 5ETUPKK87 
CALL SETUPWKSe 

1 

I NON CHECK FOR CURSOR POSITION COORDS 
POP AF 
PUSH AF 
CP I4H 
JP NZ,CONTI 
LD A,(1X«7) 

DEC A 

LD D,(IX+13) 

LD E, (1X^14) 

CP D 

JP n,ERR6 
LD A,<IX+6) 

DEC A 
CP E 

JP H,ERR7 
JP CONTI 
ERR&i POP AF 

LD A,XCUR1NV 
JP EXITW 
ERR7I POP AF 

LD A,YCURINV 
JP EXITW 


tSET THE CHAR 

I IS IT A POSITION CURSOR? 

|N0 

I (X'-X)*l 
jX’-X 

(HOVE CUR X COORD 
jDITTO Y 

|X COORD GREATER THAN PART 
{SCREEN WIDTH 

I (Y--Y)M 
JY'-Y 

|Y COORD GREATER THAN SCREEN 
{DEPTH 


{DISCARD 

{DISCARD 


CONTli 

] 

\ NOW 


THE REAL CODE 
CALL GETAOOUNCUR 


POP AF 


{CONVERT CURSOR COORDS TO 

(ADDRESS 

(CHAR TO WRITE 


BIT SCBBGR.dY^SCBATl) 
LD B,A 

JP NZ,WRITABLE (YES 
LO B,A 
CP 02BK 

JP P.NOTCONTROL 
LD A,B 

CALL CONTROL 


{GRAPHICS NODE? 


JP ENDWRITE 
NOTCONTROLi 
LD A,D 


I IS IT A CONTROL CHAR? 
{NO 

(RESTORE CHARACTER 
(NOT WRITABLE SO 00 THE 
(NECESSARY 
(FINISHED 


{ FUNCTIONi Thla routine return! the addreti of 
I the SCB corrciponding to the etreae nuaber 
I INPUTSt B«StreaA nunber 

IXxWorkapace addreti 


I 

( OUTPUTSi lY-Addreit of SCB 


!' 

GETSCBiLD IV,SC6L 


(ADDRES OF SCB LIST 


NK82 * Y'(ROW') 

LD A,B 



NKS4S- BASE * (Y»WIDTH) * X 

SUB 1 



WKSE • V-Y 

LD C,A 



WKS7 * X'-X 

SLA C 

(MAKE STREAM A WORD 

OFFSET 

WK8B * WIDTH - (X'-X) 

LD B,00 

(READY FOR ADD 



ADD IY,BC 

iIY*ENTRY IN SCBL 


LO B,(lY^SCBSSH) 

LD L,(IY^0) 

(L«L0W BYTE OF ADDR 


LD (IX+0),& 

LO H,(lY^l) 

(H*H16H BYTE 


LD B,(lY^SCBSSV) 

PUSH HL 



LD (IX«1> ,9 

POP lY 

(RESULT RETURNED IN 

lY 

LD B,(IY+9CBSEH) 

LD (IX+2),B 

RET 




{ GETAOOUNCUR (WORKSPACE) 

t FUNCTIONi Return the addreti of the tcreen 
( location under the current curtor poiltlon 
I INPUTS! IX* Worktpace addreit 
{ IV* SCB addreti 

I OUTPUTSi WKS9,ie- Addreti of char under curior 

GETADDUNCURi 

LD L,(IY*SCBCUY> 

CALL ROWNO 
LD BC,BASE 
ADD HL,BC 
LD C,<IY«8CBCUX) 

LO B.BB 

ADD HL,BC iBASE + (YiWIDTH) * X 

LD (IXf?),H 
LD (IXflB),L 
RET 


(CURSOR Y COORD 
(CALC ROWiHIDTH 

(BASE^(Y*WIDTH) 
(CURSOR X COORD 

(BASE + (YiWIDTH) 
(LOAD RESULT 


{ CHKEND (WORKSPACE,SCB) 

I FUNCTIONi The caracter having been Mrltten to 
( the part icreen the current curtor poiltlon it 
( Increaentcd and checked to tee if a line or 
( tcreen boundary hai been exceeded. If to the 
{ tcreen it tcrolled and the curior potltion 
I adjuited. If the part tcreen Hat a tingle rOM 
( the icreen it tcrolled horizontally. 

( INPUTSi IX ■ Worktpace addreti 
I lY - SCB addreit 

( OUTPUTSi none 
t LOGICl IF SCBCUX*X' THEN 
IF Y-Y' THEN 
CALL SCURSOR 
CALL TICKERTAPE 
ELSE 

SCBCUX-X 

IF SCBCUV-Y' THEN 
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CALL SCUR90R 
CALL SCROLL 
ELSE 

INC SCBCUy 
FI 
FI 
ELSE 

INC SC6CUX 
FI 

CALL SCURSOR 


CHKENOi 

I IF 8CBCUX-X‘ THEN 

LO A, (IY>8CBCUX) 
LD B,(IY>8C68EH) 
CP 6 

JP Z.EOL 

{ELBE 

r CALL SCURSOR 
|FI 

INC (lY+SCBCUX) 
JP DONEl 


(CURSOR COL X 

px- 

(CURSOR COL EXCEEDED EOL 
(YES 


(NEXT CURSOR POSITION 


(NON PERFORM THE EOL PR0CE8SIN0 AND CHECK FOR EOS 
( IF y'«Y THEN 
( CALL SCURSOR 

( CALL TICKERTAPE 

EOLt LO A,(lY+SCBSSV) |Y 

LO B,(lY+SCBSEV) (Y' 

CP B ilfi THtQ A arum c anu 


JP NZ.MORETHANONE 
CALL TICKERTAPE 
JP DONEl 


(IS THIS A SINGLE RON 
(PART SCREEN? 

(NO 

(HORIZONTAL SCROLL 


(THROW A CRLF AND CHECK FOR EOS 

(SCBCUX-X 

MORETHANONEi 

LO A,(lYtSCBSSH) (CURSOR 

LO (IY+SCBCUX),A (RESET 

(IF SCBCUY-Y' THEN 

LD A,(lYfSCBCUY) (CURSOR 

LD B,(1Y*8CBSEV) |Y' 

SUB B (SCBCUY 

JP NZ.NOTEOS (NO,NOT 

CALL SCROLL (SCROLL 

JP DONEl 


(CURSOR COL 
(RESET 

(CURSOR RON 
(Y- 

(SCBCUY-Y? 

(NO,NOT END OF SCREEN 
(SCROLL PART SCREEN 


(INC SCBCUY 

NOTEOSilNC (IV^^SCBCUY) 
OONEli CALL SCURSOR 
RET 


(NEXT CURSOR RON 
(CURSOR ON IF REQUIRED 
(ALL DONE 


TICKERTAPE (WORKSPACE) 

FUNCTION! Horiiontally icroll tht icrttn to thf 
lift ont charactir to product a ticktrtapt 
tFftct 

INPUTS! lX«Norl(ipact pointar 
OUTPUTS! non# 

LOGIC! toiabaai«(Y*Hidth)*X 
Fro*!■to+l 
FOR n"lT0{(X'-X)-l) 

DO 

Cto]!B[Froa] 

OD 

[fron I!"tpact 


TICKERTAPE! 

LO D,(1X^4) 
LD E, <IX«9) 
LD H,S0 
LD L,ei 
ADD HL.DE 
LD B,ee 
LD C,(IX+7) 
DEC BC 
LOIR 
DEC HL 


LD C,(IX+7) (<(X'-X)+1) 

DEC BC (X'-X 

loir (SCROLL THE LINE 

DEC HL (BUMPED ONE TOO FAR 

LD (HL),e2BH (CLEAR LAST CELL 

RET 


( SCROLL (WORKSPACE) 

( FUNCTION! Scroll tht part tcrtn up ont lint, and 
( clear tht bottofi lint 
( INPUTSi IX^Norkapace pointer 
( OUTPUTS! none 


LOGIC! toi-baflBf(Y«Nidth)'fX 
frot!*10^32 
FOR n-lTO((V-Y)-I) 

DO 

FOR a*lto(X'-X) 

DO 

CtolI■[freal 
Inc to 
inc Trot 
OD 

toi-to«Hidth-(X '-X) 
from "to^SZ 

00 

FOR n«lTO(X‘-X) 

DO 

Cfrea)i*>pacB 
dec froa 


SCROLLiLD 0,(IXM) 
LD E,(IX*5) 
LO H,0e 
LD L,32 
ADD HL,DE 
LD A,(1X«6) 
SUB eiH 

OUTERhLD B,ee 

LO C,(1X^7) 


LOIR 
DEC A 
JP Z,OONE2 

LD H,eB 
LO L,(IX«8) 
ADD HL,DE 
PUSH HL 
POP DE 

LO L,32 
ADD HL,DE 
JP OUTERl 


(TO-BASE+YfNIDTH 
(DE-TO ADORES 
(FROH-TO+32 

(KL>FROM ADDRESS 
(FOR N-1T0((Y‘-Y)-1) 

(OUTER COUNT FOR MOVE 

(FOR M-1T0(X‘-X) 

(INNER COUNT FOR MOVE 
( DO 

( [TOIi-IFROM] 

( INC TO 
( INC FROM 
( OD 

(MOVE LINE UP 
(MORE LINES TO HOVE? 

(NO 

(T0i-TO*H10TH-(X'‘X) 

(WIDTH><X'-X) 

(TO* 

(NEW LINE ADDRESS TO MOVE TO 
lFROMi-TO+32 

(NEN LINE ADDRESS TO MOVE FROM 
(MOVE NEXT LINE 


(CLEAR BOTTOM LINE REVERSE ORDER 
D0NE2I LD B,(IX*7) (COUNT TO CLEAR X'-X 
DEC HL 

CLEARl!LD (HL),e2BH (CLEAR CELL 
DEC HL 
DEC 6 

JP NZ,CLEAR1 


( SCURSOR (SCB ADDRESS) 

( FUNCTION! Reiet the curaor block after an event 
( Nhlch aay have reiulted in tht curaor tovlng 
I INPUTSi iy«SCB Addreai 
I OUTPUTS! none 


SCURSOR! 


BIT SCBBCU,<1Y^8C6AT1) (CURSOR ON? 

JP NZ,NOTON 

(NO,TURNED OFF BY CALLER 

CALL OETADDUNCUR 

(ADDR UNDER CURSOR IN HL 

LD A,(HL) 

(GET CHAR • CURSOR 

XOR BGBK 

(INVERT CHAR 

LO (HL),A 

(WRITE BACK 

NOTON! RET 




CONTROL (CHAR,SCB,WORKSPACE) 

FUNCTION! This routine junps to the appropriate 
function according to the control code uiing 
the Juap table 
CONTTAB 

INPUTS! A"Control Character 
lY^SCB Address 
IX*Norkspacc Address 
OUTPUTS! None 


CONTROLiLD 

B,A 


CP 

MAXCONT 

(OUT OF RANGE? 

JP 

P,£NDCONT 

(YES 

LD 

H,B0 
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LD L,A 

SLA L (DONT BOTHER WITH CARRY 

LD BC.CONTROLTAB 
ADD HL.SC 
LD C, (HL) 

INC HL 
LD B,(HLI 
LD H,B 
LD L,C 

JR (HL) (ENTER CONTROL ROUTINE 

ENDCONTiRET 


r 

I HERE FOLLOW THE ACTUAL CONTROL ROUTINES 


1- 

1 CLEAR 

THE PART SCREEN 


CSt 

LD B,(IY«8CBSSK) 

|X 


LD (lY + SCBCUX) ,B 

(RESET SCBCUX TO X 


LD B,(lYfSCBSSV) 

|Y 


LD (lY + SCBCUY) ,B 

(RESET SCBCUV TO Y 


CALL CLEAR 

CALL SCURSOR 

JP ENDCONT 

(AND RESET IT 

( HONE 

CURSOR 


HCi 

CALL SCURSOR 

LD B,(lYtSCBSSK) 

|X 


LD 1lY^SCBCUX) ,B 

(RESET SCBCUX TO X 


LD 6,(IY«SCBSSV) 

(Y 


LD (lY^SCBCUY) ,B 
CALL SCURSOR 

JP ENOCONT 

(RESET SCBCUY TO V 

1 TOGGLE THE NODE BETWEEN 

TEXT AND ORAPHICS 

MTi 

LD A.dY^SCBATl) 
XOR 1 

(FLAGS WORD 


LD (lY^SCBATl) ,A 
JP ENDCONT 

(NODE BIT INVERTED 

( TOGGLE THE CURSOR BETWEEN VISIBLE AND INVISIBLE 

CTi 

BIT ei,(lY^SCBATl) 1 IF ON THEN 


JP NZ,CUR0FF 

(TURN IT OFF 


CALL SCURSOR 

(ON SCREEN 

CUROFFi 

LD A,(1Y*SCBAT1) 

(FLAGS WORD 


XOR 2 

LD (lY^SCBATl) ,A 
CALL SCURSOR 

JP ENOCONT 

(CURSOR BIT INVERTED 

1 POSITION CURSOR 

PC) 

CALL SCURSOR 

LD A, 'IX«13I 

(RELAtiVE X COORD 


ADD A.dY^SCBSSH) 

(ABSOLUTE X COORD 


LD (IT^SCBCUX) ,A 

(RESET CUR X 


LD A, dX'fl4» 

ADD A, dY«SCBSSV) 
LD IlYfSCBCUYI.A 

(SAME FOR y 


CALL SCURSOR 

(TURN ON IF ENABLED AT 
(NEW COORDS 


JP ENDCONT 


1 CARRIDGE RETURN 

CRi 

CALL SCURSOR 

LD A, dY*SCBSSH) 

(» 


LD dY*SCBCUX) ,A 
CALL SCURSOR 

JP ENDCONT 

(CURSOR AT START OF LINE 

1 LINE 

FEED 


LFi 

CALL SCURSOR 

LD A, (lY^SCfiCUYI 

(IF THE BOTTOn LINE 


SUB dY + SCBSEV) 

(THEN CALL SCROLL 


JP NZ.NOTBOTTOn 

(ELSE INCREMENT SCBCUV 


LD A, (lY^SCfiSSV) 

(DONT SCROLL IF 


CP (IY*SCBSEV) 

(A SINGLE LINE 


JP Z,ENDLF 
CALL SCROLL 
JP ENDLF 

NOTBOTTOMiINC (1Y*SCBCUY) 
ENDLFi CALL SCURSOR 
JP ENOCONT 


I HORIZONTAL TAB 


HTi CALL SCURSOR 

CALL CHKEND (DOES THE CORRECT PROCESSING 
JP ENDCONT 


{ VERTICAL TAB 


( 


VTi 

LD A,(lY+SCBCUYI 

IIP 

9CBCUY-V 

THEN 


SUB dVtSCBSSV) 

(NULL 

ELSE 



JP Z.ENDVT 

(DEC 

SCBCUY 



CALL SCURSOR 

DEC dY«SCBCUY) 
CALL SCURSOR 

(AND 

RESET THE 

CURSOR 

ENDVTi 

JP ENDCONT 





BACKSPACE 


IF SCBCUXeX THEN 
IF SCBCUY«Y THEN 
NULL 
ELSE 

CALL SCURSOR 
SCBCUX-X' 

DEC SC6CUY 
CALL SCURSOR 


FI 


( CALL 

SCURSOR 


( DEC 

SCBCUX 


( CALL 

SCURSOR 


( FI 



8S) 

LD A, dY*SCBCUX» 
SUB dY«SCBSSK) 

JP Z.COLZERO 

CALL SCURSOR 

DEC dV^SCBCUX) 
CALL SCURSOR 

JP ENDBS (END 

OF JOB FOR CURSOR NOT 


(LINE 

START 

COLZEROl 

LD A, dY*SCBCUY) 
SUB dV^SCBSSV) 

JP Z,ENDBS 

(SCBCUY'Y, NO ACTION IF 
(CURSOR HOKE 


CALL SCURSOR 

LD A,dY*SC8SEH) 

LD dY*SCBCUX) ,A 

|SCBUX*X' 


DEC dY*SC0CUV» 

(CURSOR UP ONE 


CALL SCuPSOR 

(RESET CURSOR 

ENDB3I 

JP ENDCONT 




DELETE (DESTRUCTIVE BACKSPACE) 



CLEAR 

CELL UNDER CURSOR 




IF SC6CUI>I then 




IF 

SCBCU»*Y then 




NULL 




ELSE 




SC8CUl«X 




DEC SCBCUY 




FI 





else 





DEC 

SCBCUX 




FI 





CALL 

SCURSOR 



DELETE) 

CALL GETADDUNCUR 





LO 'HD.ZGH 

(CLEAR 

CELL 



LD A,(•’’♦SCBCUX) 

(CURSOR 

X 



SUB dv»SCBSSH> 

|X 




je N2.NOTCOLZERO 





LD A,dY*SCBCUY) 

(CURSOR 

Y 



SUB dr^SCBSSV) 

lY 




JP 2,ENDDEL 

(CURSOR 

HOME 



LD A, dY*SCBCEH) 

(RESET 

CURSOR COORDS 



LO dY*SCBCUX) .A 





DEC dY*SCBCUY) 




JP ENDDEL 

NOTCOLZEROiDEC <IY«SCBCUX) 

ENDDELiCALL SCURSOR 
RET 

I CLOSE STREAK 

I FUNCTION) This routine Htll deellocate the SCB 
( but takes no other action 
I INPUTS) A“Streai« nuaber 
I OUTPUTS) A^Error code 
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CL0S£» LD A,B 

CP MXPT+1 |8EE 
JP M.MAXPTOK 
LD A.STRTOBieC 
JP ENDCl 

MAXPTOKjCALL GETSCB jSET 
LD A,(lY+SCBSTR) 
CP 0FFH 

JP Z,ERR8 jNOT 
JP CONTCLOSE 
ERRBj LD A.STRNOTOPNC 
JP ENDCL 

CONTCLOSEiLD A.NOTALL 

LD (IY'«'SCBSTR),A 
LD A,SUCCESS 
ENDCLi RET 
END 


IF IN RANGE 


ADDR OF 8C8 

iCHECK IF IT NAS OPEN 

OPEN, SO CANT CLOSE 


|NOT ALLOCATED 
■RELEASE SCB 


■ 


APPLICATION 1 OF THE PART SCREEN HANDLER 

... 

jSlnple denonitratlon progrtoi Tor V0UK/2K Part 
I tcrean driver. Nine Part acreeni are opened 
I (could be up to ten), Tint being the Mhole 
■ screen, The progran cheats (to save ay typing 
I effort) in that no checking of return codes is 
I done,and it is assuaed the streaai are opened in 
I sequencial order. This is only valid for a netily 
I initialised prograa. 

I*........ 

ORO sseeH 

LOAD BSeSH 

1 

■SOHE EQUATES TO LINK TO EXTERNAL SUBROUTINES 

OPENi EQU eAB90H 

CLOSEt EQU eA46AH 

NRITEi EQU SAICDH 

OETKEYi EQU G6E2H 

r 

■GENERAL EQUATES 

HAXSTi EQU 9 ■CAN BE UP TO IB 

I 

■VARIABLES 
CHSVi DS 1 
CTSVt DS i 


I 

■STREAM DATA IN THE ORDER X,Y,X',Y' FOR EACH 
■STREAM 


STDATAi DB B,B,31,23 
08 0,e,e,23 
DB 31,0,31,23 
DB 2,0,29,0 
DB 2,23,29,23 
DB 5,5,B,8 
DB 23,S,26,8 
DB 14,10,17,15 
DB 7,17,24,19 

■ 

■FILL THE PARAMETERS 

FILLi LD B,(IX+B) 

INC IX 
LD C, (1X4-0) 

INC IX 
LD D, (1X40) 

INC IX 
LD E, (1X40) 

INC IX 
RET 


■WHOLE SCREEN 
■SINGLE COLUMN IN ROM 
■SINGLE COLUMN IN ROM 
■SINGLE ROM IN COLUMN 
■SINGLE ROG IN COLUMN 

■ EYE 

■OTHER EYE 

■ NOSE 
■MOUTH 


ZERO 

31 

ZERO 

23 


I 

■OPEN THE STREAM 
OPENSTi PUSH IX 

CALL OPEN 
POP IX 
RET 


I 

■OPEN ALL STREAMS 
OPENALLiLD IX,STDATA 
LD A,HAXST 
NEXTOPENtCALL FILL 
PUSH AF 
CALL OPENST 
POP AF 
DEC A 


JP NZ,NEXTOPEN 
I 

■TURN OFF THE CURSOR 

LD B,1 ISTREAH 1 

LD A,11H iTURN OFF THE CURSOR ON 
■STREAM 0 

CALL WRITE 
J 

■NOM GET A CHARACTER FROM THE KEYBOARD AND WRITE 
I IT TO EACH STREAM IN TURN. 

KEYi CALL GETKEY 

JP Z,KEY ■WAIT FOR A KEY 
LD (CHSV),A jSAVE CHAR 
LD A,2 tSTREAM 2 

LD D,A ■MUST BE IN B FOR CALL 

LD (CTSV),A ■SAVE CURRENT STREAM 
LD A,(CHSV) ■RESTORE CHAR 
NRITENEXTiCALL WRITE 

LD A,ICTSV) jGET THE STREAM BACK 
INC A 

CP MAXST41 ]ALL DONE 
JP Z,KEY jYUP, WAIT FOR NEXT KEY 
LD (CT8V),A iSAVE NEXT STREAM 
LD B,A ■READY FOR WRITE 

LD A,(CHSV) ■GET THE CHARACTER BACK 
JP MRITENEXT)THE ONLY WAY OUT OF HERE IS 
■TO HIT RESET!!! 

END 

..... 


APPLICATION 2 OF THE PART SCREEN HANDLER 

|A simple electronic typeHriter, partly useful and 
I partly as a demonstration of a use for the Part 
I screen handler. 

I 

|A line at a time is entered, nay be edited (no 
I insert I'n afraid), and ii then printed by 
I pressing CR,the bottom 22 lines keep a scrolling 
I display of Mhat has been printed so far. 

I 

(The program is exited by ETX (usually generated 
I by CNTRL L C, this Mill Close the Part screen 

■ before jumping to the ZYMON Harm start address. 

■ 

(Note, if your printer requires only CR to throH a 
I neM line then you Hill have to remove the LF in 
I the main loop. 

1 

ORO 08000H 
LOAD 0G00eH 


• 

(EQUATES FOR LINKING TO EXTERNAL ROUTINES 

OPENi EQU 0A09DH 

CLOSES EQU 0A46CH 

MRITEi EQU 0A1CDH 

OETKEYi EQU 06E2H 

ERRt EQU 06A4H 

WARMS EQU 0066H 


1 

■GENERAL EQUATES 
MAXSTi EQU 3 
WIDTKi EQU 64 
LINE0I EQU 0F000K 
ETXi EQU 3 


(MAX STREAMS TO OPEN 
(WIDTH OF SCREEN 
■START ADDRESS OF LINE 0 
(END PRINT 


■ 

■COORDINATES FOR PART SCREENS 
SCRCOORiDB 0,0,63,0 ■LINE 0 

DB 0,2,63,23 ■LINE 2-23 
DB 0,1,63,1 (LINE 1 


I 

■MAIN CODE 

OPENli LD IX,SCRCOOR (COORDINATE DATA 
LD A,MAXST 
OPENLPi PUSH AF 

CALL FILL 
CALL OPENST 
POP AF 
DEC A 

JP NZ,OPENLP 
NRITELNiLD B,3 
LD D,6 

OUTERS LD C,10 


(SCREENS TO OPEN 

(FILL PARAMETERS 
(OPEN STREAMS 
(COUNT 


■STREAM 3 

■OUTER LOOP COUNT 

■INNER LOOP COUNT.CHARS 0-9 
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LO A,0fiBH 

(START AT INVERTED B 

INNERi 

CALL HRITECH 
INC A 



DEC C 

JP NZ,INNER 

(END? 


DEC D 

(FINISHED ALL? 


JP NZ,OUTER 

LD A.eseK 

CALL HRITECH 
INC A 

CALL HRITECH 
INC A 

CALL HRITECH 

(NO 

FOREVERtCALL QETKEY 



JP Z,FOREVER 
LD B,A 

(LOOP IF NO KEY 


CP 13 

(KEY IS CR7 


JP Z,CR 

LO A,B 

(YES 


CP ETX 

(END OF SESSION? 


JP Z,FINISH 

JP NOTCR 

(YES 

CRt 

CALL PRNCOPY 

(COPY LINE B TO PRINTER 


LD B,2 

(STREAM 2 


LD A,13 

CALL HRITECH 

(CR 


LD A,BAH 

CALL HRITECH 

tLF 


JP FOREVER 

(KEEP SOINS 

NOTCRi 

LD A,8 


LD B,1 

CALL HRITECH 

(STREAM 1 


JP FOREVER 

(KEEP OOINO 

FlNISHi 

LD 6,1 

CALL CLOSE 

(STREAM 1 


LO B,2 

CALL CLOSE 

(STREAM 2 


LO B,3 

CALL CLOSE 

(STREAM 3 


JP HARM 

(RE-ENTER ZYMON 


ENDPRt LO A,eCH 
LO B,1 


LO A,eCH (CLEAR SCREEN CODE 

LO B,1 (STREAK 1 

CALL HRITECH 

LD A,13 (CR 

CALL PRINTLM (TO PRINTER 

LD A,BAH |LP 

CALL PRINTLN (TO PRINTER 

RET 


PRINTLNtPUSH AF 
PUSH BC 
PUSH AF 
NOTROt IN A,(6) 
BIT 7,A 
JP Z.NOTRD 
POP AF 
OUT (7),A 
POP BC 
POP AF 
RET 


(PRINTER STATUS PORT 
(BU8V 


the end 

tEd~ Stt tht littir froa Bob 
ttctien For soat axtra notit 
•crttn diapUy projact.] 


In tht latttrt 
about thi« Part 
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BETRAYED! 

H I nnd that guy he's for it. Let iie knoH if 
you've seen hie. He crept into our house soie 
tine late last year, a big fat fellow with a red 
cloak and a white cotton~wool beard (!'■ pretty 
sure it was one of his reindeer loosened one of ey 
chinney pots) and what did he leave ity elder boy 
Andrew but a Sinclair Sgectrui 128K Plus! The 
shaee of it. 

To be fair Andrew (age G) and his brother Robin 
(age S) have had a lot of fun with it, so if I see 
Santa I'll let hie off with a reprieand, but it is 
a very difficult machine to get to grips with in a 
serious way. I'm not sure Amstrad (who helped 
Santa make it) know what they're putting in the 
box| half the tapes supplied don't load first 
time, or 'crash' just in the middle of the 
interesting bit. As part of their policy of 
continuous improvement Amstrad have rewired the 
joystick ports (so you can't use any joystick you 
already might have)j the only trouble is many of 
the games in the kit were written before the 
•improvement* was made so will work with any 
joystick but the one supplied! 

Inside is a miracle of consumerism. (I had to 
look inside on Christmas day to try and see if 
there was any reason for the unexplained crashes.) 
On a board hardly any bigger than a single Interak 
pcb is the whole computer. I recognised the sound 
chip (AY-5-B912) the modulator (UM 1233) memories 
(41641 a few LS parts and the CPU (ZGOA), but the 
rest were all unknown ’Amstrad* specials, some 
with dirty great heatsinks grafted on as if an 
afterthought. There is little use of sockets, no 
circuit diagram, and no source of replacement 
chips, so 1 had to give up and screw it back 
together. 

It later turned out that it was mostly defective 
software causing the trouble. Andrew's school 
friend (whom Santa had similarly favoured) had the 
same sort of trouble but on different games in the 
pack. Evidently the tape loading (even with the 
built in recorder) is unreliable, and little or no 
error checking is carried out, so you can easily 
get a bad load without knowing about it until the 
game is well under way. The simple solution of 
making fresh copies of the games which do work is 
not possible because the tapes are copy protected 
- if you have an accident or a defect develops in 
the original that's your lot! 

Why am I confessing to having an Amstrad Sinclair 
in the house, when I really should have nothing 
but Interaks? I am like all the other Interak 
users with a -fierce loyalty to Interak. In fact 
there is no shame in having a computer other than 
Interak. Different computers do different jobs. 
The Sinclair is wonderful for example for plugging 
into the family TV and playing games swapped in 
the school yard (even though they shouldn't be, 
but the children see it the same as swapping 
comics, cricket bats and the like). An IBH is 
wonderful for running grown up packages in a 
similar way, the same with the better Amstrads, 
Ataris, Macs, etc. If you just want to plug in and 
go, there's no beating them, there never has been, 
so don't feel ashamed if you own a computer other 
than Interak, you can come out of the closet - 
your secrets are safe with me. Anyway from my own 
personal experience with Amstrads, IBMs and the 
like, it is always a welcome relief to get back to 
Interak. 

HIND YOUR BACKS 

I am now getting a few letters addressed to 
’Auntie* at Greenbank. (A fond hello to all my new 
nephews, no nieces yet!) Circumstances have 


forced me to take my partial sex-change a bit too 
far| as I sit and write this I am wearing ay new 
corset. This is not what you think you bad minded 
jokers, the new underwear is entirely medical. I 
have been suffering with a bad back and some 
sciatic pain in my right leg since last July. 

The diagnosis is an arthritic spine caused by wear 
and tear. Apparently many years ago I suffered a 
'slipped* disk without realising it (this is 
possible because there are no pain receptors in 
the disks - you only feel it if a nerve is 
trapped), and it has gradually deteriorated 
unknown to me until last summer I pushed it over 
the brink by using a starting-handle on ay car 
when it had a flat battery. Never again! 

I took a sneak look at my X-Rays, and even as a 
layman the trouble is obvious. This is a sketch of 
what I sawt 





The specialist says there is really no chance of a 
cure without an operation to fuse the vertebra to 
the bone beneath and stop any further movement. 

I must give my thanks to all of you who have 
expressed sympathy and offered practical 
suggestions from their own experience. Bob 
Eldridge (a fellow sufferer following an accident 
at sea - it's amazing what people have done) 
suggests jogging and swimming to replace my steel 
corset with natural muscle support, the osteopath 
I have tried and my doctor however both advise 
against exercise whilst there is still pain (but 
In the last six months or more they haven't 
managed to cure me). George Coombs suggests a 
Selenium and vitamin dietary supplement which he 
has found helpful for his own arthritis, and has 
given me advice on selecting a qualified 
osteopath. John Heaker, a lecturer at North 
Humberside tells me of an almost crippled lady at 
a Yoga class who was rejuvenated by Yoga 
exercises! Charlie Bridgstock recommends pain 
killers and 'Tiger Balm* la remedy he has picked 
up in his travels in the world - ask him about 
these, he has some interesting tales to tell). 
Kevin Daley says that as a designer of Interak I 
should simply fit a new 'backboard*, and the rest 
of you have all offered your sympathy and support. 

I can certainly say that if there was any chance 
that standing with one leg in a bucket of cold 
porridge in the middle of an elm wood at midnight 
facing due north and singing 'He Shall Overcome’ 
would do the trick I should be the first to try 
it. (It doesn't work by the way.) 

Bye for now. Nell done Bob on the new layout; 
thanks to Ton for looking after everyone; thanks 
to Charlie for successful launch of disk library. 
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SOME ZYBASIC PROeRAHS 
By Piul M. Nicklln 
For Zybiflc 

This suit contains i- 
BI0RHYTHM8, CALENDAR PRINTER, 

SIMULATING 3D ARRAYS 
SIMULATING 'CODE' 

Notsi- CCTRL_X] Asans prtss Control and X togsthar 
[CTRL.U] naans press Control and U togathar 
C10*CTRL.Y3 leans press control b Y tan 
tines. 

BIORHYTHM PROBRAM 

Notes t- 

Line 118 Inputs data oT birth. 

128 Calls sub at 280. 

140 Input todays data. 

170 Calls sub at 300. 

Sub 280 calculates days slnca 1st Jan 8008 
310 Prints graph. 

348-408 Vitality graph. 

The use of the point coanand ensures that tltlas 
etc. are not overHrltten. 

The pattern of the cycle is a sine wave. 

This progran Mould have bean shorter if CODE and 
MODULO Mere available. See later in this article 
for sinulatiens of these. 

100 CLSi LINE li PAQEl DOFF 

118 INPUT “Date of bl rth:, "Day "D, “Month “M, 

"Year “Y 
120 GOS,200 
130 N1"N 

140 INPUT "Today’s datei',“Day “D,'Month “M, 

"Year "Y 
150 80S.200 
160 N-N-Nl 
170 OOS.3ie 
1G0 STOP 
200 N-YS365 

210 N»N+lNT(Y/4)*INT(Y/400)-lNT(Y/lB0) 

220 Cl-01 IF Y/4«INT(Y/4> Cl-1 

230 C2-0I IF Y/100-INT{Y/100» C2-1 

240 C3-0I IF Y740B-INT{Y/400» C3-1 

250 C4»{M*3) 

260 C5»0i IF (C2+C3) C5-1 

270 N»N-(Cl*C4*C5) 

2B0 AI-1231223345566" 

290 N>*N*PEEK(i00FF+M)+30*<M-2)*O 
300 RET. 

310 N-N-32 
320 008.648 
330 OOS.600 

340 LINE li PRINT "[CTRL Xl Line represents 
average."! PRINT 'CCTRL X] Intellect." 

350 El>Ei Vl>Vt 11>I 

360 FOR A>1 TO 12B 

370 Y»23+23»8IN(iA/2+Il)*180/33) 

300 IF POINT(A/2,Y)<>0 0.400 
390 SETiA/2,Y) 

488 NEXT A 
410 008.678 

420 LINE li PRINT '[CTRL X] Line represents 
average."! PRINT “[CTRL X) Enotion. “ 

430 FOR A"! TO 192 
440 Y«!23t23t3IN((A/3+El)*I00/33J 
450 IF POINT(A/3,Y)<>0 0.478 
460 SETiA/3,Y) 

470 NEXT A 
400 008.678 

490 LINE l! PRINT “ECTRL X] Line represents 
average. “I PRINT “(CTRL XJ Vitality. ■ 

500 FOR A«1 TO 192 

510 Y»23t23*SIN((VltA/3)*180/23) 

520 IF POINT(A/3,Y><>0 8.540 
530 SET(A/3,Y) 

540 NEXT A 

550 LINE ll STOP 

600 I-N-33*INT(N/33) 

610 E»N-20#INT(N/28) 

620 V«N-23#INT<N/23) 

630 RET. 

648 FOR A-1 TO 23l LINE Ai ?"(CTRL.X“i NEXT A 


650 LINE 12i 7'(CTRL U3,tl5*CTRL Y],[CTRL NJ, 
tI3#CTRL.Y],tCTRL_R “i 
?“16 Days ago Today In 16 days* 

660 RET. 

670 LINE ll 7Pross a key. " 

6B0 INK.K 

690 INK.Yt IF Y>0 0.690 
708 CLS 
710 GOS.640 
720 RET. 


CALANDAR PRINTER 
Notes! - 

Ds Is sliced at line 340, Lina 90 puts Sunday In 
inverse video. Ms contains the offset (MOD 7) 
that occurs froa assuning each nonth has 28 days, 
le after 3 Aonths you Mould be 6 days out, so 
Mi(4) is 6. Ls contains the nuaber of days 
greater than 20 of each aonth. Ls is then PEEKed 
to find L Hhlch Mill then contain the nuaber of 
days In that aonth. 

Lines 270-290 decide conditions C1-C3 and 300- 
acts on these conditions to produce an offset 
value of the nuaber of leap days to add if the 
aonth Is greater than February then these days are 
added else condition 4 is zeroed. 

The subroutine at 78-100 READs the data and finds 
froa then your aonth and puts the nuaber of the 
aonth into al. 

N.B. Graphics instructions are shoun boxed (CTRL.! 

18 CLSi PAGE! LINE ll DOFF 
20 C«0i Cl«0i C?«0! C3-8! C4>0 
30 L«-“303232332323" 

48 INPUT “Year “Y 

50 7 "Month In capitals “iH«-INPUT» 

60 Mt>MID9<Nt,l,3) 

70 M»«"033614625035* 

80 D<<‘“SunMonTueMedThuFriSat“ 

90 PO.*8400,103,•F3,IEE 
100 N>Y 
110 RESTORE 

120 M-N*INT(N/4»-INT(N/108)*INT(N/408) 

130 Ml«l 
140 READ N* 

150 IF N«-K* 0.190 

160 Ml-MUl 

170 IF Ml<>12 0.140 

180 G.se 

190 PRINT 

280 LINE 6 

210 C-PEEK(«8C0B-I+Mn 

220 IF (Nl»2)*(Y/4«lNT(Y/4)) C«C*1 

230 FOR A-l TO 6 

240 C«28»Atl 

250 P2-PEEK(IBD00*HI-l)-48 

260 C»M+A*P2 

270 IF N/4-INT(N/4> Cl-l 

280 IF N/iee-lNT<N/lO0) C2>1 

298 IF N/400>INT(N/400) C3-1 

300 C4-C1-C2+C3 

318 IF Ml<3 C4-0 

320 C-C-C4 

330 C«C-7aINT<C/7> 

340 7MID>(D4,3»C>i,C> 

350 FOR B-0 TO 4 

360 C-7fB*A*li IF C<»L P.X3,C, 

370 NEXT B 
380 P. 

390 NEXT A 
400 LINE 2 

410 P.“(CTRL_SJ,t9*CTRL YJ,ECTRL R1 “t 
P."ICTRL_X“*N»,X5,Y,"[CTRL X'l 
P.“tCTRL.Gl ,I9*CTRL Y3,CTRL P “ 

420 LINE 16 
430 STOP 

500 DATA “JAN",“FEB","MAR","APR“,“MAY',"JUN“, 
“JUL“,"AUB“,"SEP“,"0CT","N0V“,“DEC" 
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SIMULATION OF 'CODE' 

Not*i 1 “ 

X rtturni the codi of MIDt(Str 1 ng, P, H 
S containi code of etring le. 41H for A». 

3700 ! C0DE< < S containi code of itring ie 
41H for Af 

3710 S«Sffi4i S*S*25& 

3720 X»PEEK<8-1+P) 

3730 NEXT A 


SIMULATION OF MODULO 
3800 ! Y-X NOD Z 
3010 Y-Z-Z*lNTa/Z) 
3820 RET. 


SIMULATING 3D ARRAYS 

In aott veriloni of Bailc a proviilon ii made for 
Aulti-dimeniloned arrayi. In Zybaiic only one 
■Ingle dimensioned array exlits, it li accessed by 

Knumber) 

In lUON 2 Pete gave us a formula for 2D arrays, 3D 
arrays are simply an extension of this i- 

Suppose He Hlih to store Temperature readings for 
2 Heather atatloni over one neek. 

This Hould require a 2D array (2,7) and a given 
temperature nouid be accessed by <H,D) for day D 
and Station U. 

To do this in Zybasic you Hould use the formula t- 
0MM-l»»7 + D-n 

Suppose noH He nish to store Rainfall totals as 
Hell, another dimension is needed so our array 
becomes (2,2,7) and a Heather station Hould be 
accessed by (F,3,D) for station 8 on day D, F 
would be 1 for temperature, or 2 for rainfall. 

In Zybaiic this would be i- 

•{(F-l)*14+(S-i)i7*D-l) 

So the general formula for an array (K,y,il is i- 
0<(X-l)a(v«z)MY-l>ai;*7-i 

The parts underlined should be replaced by the 
correct values. 

Here is a subroutine that Hill put N into store 
<X,Y,Z), (Again the correct values should be 
placed in the underlined parts.) 

1500 Z9»((X-l)a t(Y-l)f tZ-l 
1510 l(Z9)-N 
1520 RET, 

4D ARRAYS 

This formula Hill put N into store (N,X,Y,Z) 

1550 Z9«((W-1)» x*vaz *IX-l)* v»z *(Y-l)sz+Z-l) 

1560 i(Z9)>N 
1570 RET. 

The array size is lH,x,y,z) and these should be 
substituted into the formula. 


COMS'l DESIGN AND CIRCUIT DESCRIPTION 
By David Parkins 

Introduction 

This is an experimental design for a general 
purpose serial interface, but designed with use 
for data communications via modems very much in 
mind. It is based on the non aged ‘Kemitron* BIO-' 

4 card, but has some more modern additions. In 
particular, there are a set of Individually 
selectable baud rates for both transmit and 
receive, and extra outputs and Inputs to allow the 
use of MODEMS. Except for the selection of the 
block of 4 1/0 Port addresses which the design 
uses, all selections are to be carried out by 
aoftware. Because of thla (and also because this 
card uses 4 I/O Port Addresses to control just one 
UART, compared with the previous 2 I/O Port 
Addresses per UART of the less sophisticated 
design) this card requires its own new software to 
drive it. 

An earlier design ‘XSER2'', was devised in 
September 1985, with the help of Tom Evans (SYSOP 
of the Taecom-Interak Bulletin Board) and this 
design is a very close development of the XSER2. 

Our thanks are due to Tom Evans for his help and 
suggestions, and his experimental work and 
debugging ‘on line*. 

The main differences from the XSER2 arei 

1. Prevision of 16 Jumper Links to allow 

configuration as DTE (Data Terminal 

Equipment) or DCE (Data Communication 
Equipment). 

2. Removal of option for TTL level outputs as 
alternatives to RS-232 levels. 

3. Rearrangement of Modem handshaking port bit 
allocations (in order to ease printed circuit 
board design rather than for any other 
reason), 

Harnlno 

Note that this is still only an experimental 
design] if a printed circuit is produced it may 
be different in many ways from what is discussed 
here! 

DTE and DCE Conflouration 

Serial communication via the 2S-Hay D-type plug of 
a conventional RS-232 data link of course Involves 
both ’transmission" and ‘reception". Ideally one 
party transmits on pin 2, (the "TXD" signal line) 
and the other receives on the same line. Then (or 
simultaneously in the case of ‘full duplex’ 
communication) the other party transmits on his 
pin 3 (the "RXD" signal line) and the first party 
receives on pin 3. 

You can perhaps detect an anomaly herei if say we 
transmit on the TXD line (pin 2) and receive on 
the RXD line (pin 3) the remote party has to 
receive on the TXD line'and tranamit on the RXD 
line. This is probably quite understandable to you 
because of course when one party transmits the 
other has to receive, and vice versa. 

There are generally two kinds of equipment 
possible] "DTE" or Data Terminal Equipment, (for 
example a computer and its operator), and "DCE" or 
Data Communications Equipment, (for example a 
modem). By the way, I am aware that the proper 
meaning of DCE is "Data Circuit Terminating 
Equipment", so don't write in and tell me, but 
‘Data Communications Equipment’ seems more 
explicit to me, so that's what 1 shall take it to 
mean. 

DTEs transmit on pin 2 and receive on pin 3] DCEs 
receive on pin 2 and transmit on pin 3. Viewed 
this way it makes pretty good sense. Naturally a 
modem which has received some data from some 
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distant data provldar h 111 have to transailt it to 
the data tereinal equipnent, Hhich in turn 
receives it. The nodea obviously nil) have to 
transmit along the data ternlnal'a receive line if 
the terminal is to receive it. And I suppose, to 
complete the story, the message Hill be presented 
on the terminal's screen or printed on its printer 
for transniision optically to the user's eyaballs 
Hhich receive the image to transmit to hia brain 
cells, Hhich receive the information. 

1 have laboured the point this much so that you 
can agree hoH simple it all is. There can be no 
such thing as an absolute definition of 
transmission or reception of data| nhat is 
transmission from one party is reception by the 
other. The names given to the R3-232 signal lines 
"TXD' and "RXD* are defined according to the point 
of vieH of the DTE. DCEs obligingly fall in nith 
the definition Hhich suits the DTE, thus a DCE has 
to receive on the TXD line and transmit on the RXD 
1 i ne. 

Before the days of the brash nan computer 
designers a very sensible plan, Hhich Has common 
then, HBs to use a male connector to signify a DTE 
and a female connector to signify a DCE. Then 
logically simple cables (connecting pin 1 to pin 
i, pin 2 to pin 2, pin 3 to pin 3, etc) male on 
one end and female on the other served all 
purposes, Hith no danger that the tHO parties 
Hould both try to transmit on the TXD line and 
both try to receive on the RXD line and thus fail 
miserably to communicate. 

Life unfortunately never remains so simple. The 
first problem is Hhat to call a device like a 
Teletype. (For those Hho are too young to have 
seen a Teletype, this is nhat computer operators 
used as a terminal in olden days. It is very like 
a telex machine! the operator types at a keyboard 
to transmit instructions and messages and the 
received ansners are printed out on a roll of 
paper for the operator to read.) So Hhat is a 
Teletype to be, DTE or DCE7 You can hardly blame 
those Hho described it as a data terminal for that 
is exactly nhat it Has. It nas sensible to 
connect this DTE to a modem, Hhich is definitely a 
DCE (nobody could dispute that!) 

Later there Here more sophisticated replacements 
for Teletypes. For example Diablo and Oume made 
terminals Hith high quality daisy Hheel printers, 
and naturally they mere DTEs as before. Honever a 
nen use Has simply as printout units for small 
computers. In this application the keyboard on 
the printer mechanism Has redundant and more often 
than not printers Here supplied Hithout any 
keyboard at all. The problem non Has that as a 
result of their evolution (as Just explained in my 
history lecture) from data terminals, ie DTEs, 
ordinary printers Inevitably had to be thought of 
as DTEs too. So a modern Epson dot matrix printer 
Hith a serial interface Is supplied Hired up as a 
DTE (although Hith a fleeting trace of unease at 
their ambivalent position, the 25~Hay 0 type 
connector has changed sex. A DTE should really be 
male, but as a printer can hardly non be thought 
of as this it has adopted a limp nristed stance 
and displays the female connector normally 
associated Hith a DCE.) 

There is no doubt that a computer is best thought 
of as a DTE, but faced Hith the task of 
interfacing both to modems (definite DCEs) and 
printers (DTEs themselves, by tradition) many 
computers have a crisis of identity and are 
provided by their designers Hith DTE configured 
serial interfaces, but often Hith the female 
connector of a DCE. To my mind there should be 
tHO classes of serial Interface on a computer, and 
of course this is possible nith Interak Hhich can 
have plugged in as many serial Interfaces as Hill 
fit in a rack. The tno classes of serial interface 
Hould be DTE nith a male plug (for connection for 
example to modems), and DCE nith a female 


connector (for connection for example to 
printers). Perhaps He could even alloH a DTE 
configuration nith a female connector to 
accommodate the limp nristed fraternity. 

You Hill appreciate that nhat is an output on a 
DTE is an input on a DCE, so a rational design 
like ours Hill have to alloH for a complete change 
of direction according to Hhether or not the 
configuration is to be DTE or DCE, so this has 
been alloned for in the COhS-l design. 

Incidentally you may be Hondering hoH lesser 
computers manage the impossible trick of 
connecting themselves (DTEs) to printers (also 
DTEs), if neither nill condescend to be a DCE for 
the purposes of communication. The ansner, at 
least as far as TXD and RXD are concerned, is to 
cross the TXD and RXD Hires in the Interface cable 
so that both may non happily transmit on their TXD 
output and receive on their RXD input. Although 
this is temptingly simple there is more to it than 
that. TXD and RXD are not the only signals to be 
considered (see the next topic for more on this) 
and so Hholesale intertHangling of Hires becomes 
necessary. Round shouldered professionals in data 
conmunications carry as the tools of their trade 
ten or tnenty cables made up to the most common 
lunatic permutations, and have as their secret 
Heapon a "breakout box' Hhich is capable of 
connecting anything and everything to everything 
and anything. You Hill have heard of the 
forthcoming Stock Exchange "Big Bang”! this nill 
be the literal consequence of letting too many 
data communications chaps loose Hith their 
breakout boxes. 

RTS. CTS and other Handshaking Sionals 
Mercifully not all the 25 nay signals are in 
common use. This is lucky because there are 30 or 
more definitions for the 25 signals, (plus a 
folklore of traditional nrong connections, nhere 
perhaps a famous computer nas manufactured to a 
blueprint Hhich had a coffee stain on it, and the 
designer didn't like to admit he'd dropped a 
clod!) 

So far I have only discussed the transmit and 
receive signals, TXD and RXD, but, especially nith 
printers and modems, you can't just go 
transmitting and receiving any old time. You 
can't send data to a printer at a rate of 1000 
characters per second if it can only print at ISO 
characters per second! YOi^ can't go transmitting 
the story of your life to Bulletin Boards 
Anonymous if your modem is snitched off, and so 
on. 

To my simple mind much of this extra complication 
could be solved by softnarc handshaking methods, 
for example XON/XOFF (Transmit on/Transmit off) 
signalling or EXT/ACK (End of Text/Acknonledge) 
signalling instead of hardnare handshaking lines 
(eg the "Busy" signal from a printer to prevent 
the receipt of further data Hhen its internal 
buffer is full). Honever there is no point in 
trying to change the Horld, so the C0M3-1 design 
is arranged to accommodate the most common 
hardHare handshaking methods. Despite my outburst 
above that all handshaking can be carried out by 
softnare, this is manifestly not the case in the 
real norld (as proved by the difficulties the 
"reduced" RS-232 4 or 5 Hire serial interfaces 

found on home and small business computers get 
into Hhen faced nith real data communication 
problems). 

The major tno signals (in the sensible 
circumstance of a DTE connected to a DCE) are i ■* 
RTS (Request to Send) and 
CTS (Clear to send)i 

RTS (Request to Send) Pin 4 (Output from DTE) 
CTS (Clear to Send) Pin S (Inout to DTE) 
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Thff DTE iiiuta an RTS Hhen It hat loae data to 
•tnd, but rtttralnt ittaW Troa blurting out tht 
data until it ractivat a CTS iron tha DCE. Mhan 
for ioaa ration (parhapi Ita intarnal buffar it 
full) tha DCE cannot accapt furthar data it daniat 
tha CTS signal to tha DTE. 

Howavar, bafora all this can taka placa thara it 
often a tore grott laval of handshaking ahich hat 
to bo let up. This involves tNo aoro tignalt, DTR 
and DSR (again in tha falicitout connection of a 
DTE to a 0CE)i 

DTR (Data Taralnal Ready) Pin 2t (Output froa DTE) 
DSR (Data-Set Ready) Pin b (Input to DTE) 

Of eourta loaaHhara In tha Horld there Mill be a 
legal docuaant defining theta tignalt In tortuous 
detail, but Jutt to that you can gat a feel for 
Mhat purpota DTR and DSR torva, you can think of 
tha DTE at being your coaputer, and the DCE at 
your aodaa. Pint tha DTE activatoa DTR to 
indicate to the DCE (tha aodaa in this axaapla) 
that tha DCE should Make up (if It Mat atlaap) and 
aaka itaalf ready for action. When it it ready the 
DCE then tends the DSR signal Mhlch it an input to 
the DTE, indicating that there it indeed a DCE 
preiont, ready for uta. A general result of 
raaovlng the DTR signal froa a aodea in uie it to 
cauie tha aodea to diiconnect froa the telephone 
line (ia to “hang up") and effectively to go back 
to tlaip. 

Although there are aany other tignalt used by 
perpatratori of the R8-232 2S May D Type connector 
criae, the tignalt aantioned to far are the aaln 
onei in ganaral uta for hardMara handshaking. 

for tha tiapla case of a DTE (eg coaputer) 
connected to a DCE (eg Nodaa), the full procedure 
goes like thiti 

1. First tha DTE activates DTR (Data Tarainal 
Raady) to call tha attention of the aodaa to 
the fact thatita tarvicat are required. 

2. Next the DCE (aodea) activates DSR (Data-Set 
Raady) to let tha DTE knoM that tha DCE it 
raady for use. 

3i Tha DTE (coaputer) iituet RTS (Request to 
Send) to ask tha DCE't (aodaa's) peraiiiion 
to tend data for traniaission doan the line. 
(It it probably best first if the DTE cheeks 
for the pretence of a valid data carrier for 
data trantalttion before entering this stage. 
The aodaa should provide this signal as DCD 
(Data Carrier Detect)) I shall go into thia 
in a little aore detail later.) 

4. The DCE grants this peraittlon (if it it 
able) by activating CTS (Clear to Send). 

5. Ndm the DTE tends the data. (Inside tha 

computer itself tha controlling toftaara has 
to carry out a further placa of internal 
handshaking, checking a signal called TBHT 
(Traninit Buffer Enpty) on tha UART (the 
"Universal Asynchronous Recelvar Traninitter* 
chip), before tending data even to the UART. 
Nhan inputting data tha signal to ba checked 
it DAV (data available).) 

As 1 Mentioned, the above DTE to DCE connection it 
the tiMplc (!) arrangeaent. Its great benefit it 
that a straight 1 to 1, 2 to 2, 3 to 3, 4 to 4, 

etc cable connects tha tHo equipAanti. 

I have already Mentioned hoHever that to confuse 
the issue considerably DTEs are soAstines 
connected to apparatus ahich alto Nantt to be 
thought of at a DTE. This occurs aoit coanonly 
Mhan a coaputer (at DTE) it connected to a printer 
(also a DTE). 


A straight connection betMean tMO unnodifled DTEt 
it courting ditatter, eg connecting the RTS output 
pin 4 of one DTE to the RTS output pin 4 of the 
other DTE it bound not to Hork. (It aay not result 
in a catastophe if, at in this design, appropriate 
arrangeeentt are nade to prevent daeaga.) 

Tdu Mill reMfMber that the crude Hay to get over 
the "DTE connected to another DTE" problee at far 
as TXO (TraniAit Data) Pin 2 and RXD (Receive 
Data) Pin 3 are concerned it to crott over the 
connections, to that pin 2 of one DTE it connected 
to Pin 3 of the other, and vice versa. 

But the plot thickens nhen ne cone to the 
handshaking lines. All that can be done is to taka 
a deep breath and croii over tone tore lines on a 
trial and error basis. An arrangenent Hhich 
sonatlnes Morkt is to nake up a special cable, 
Hhich includes the folloMing (there are 
additionally other straight through connections 
Hhich Autt be nade, and yet other straight 
connections Hhich nust not be nade, but 1 have 
left then out for "clarity* (!) and because even 
SoloAon could not resolve lone diiputas betneen 
tMO DTEs Hhich both nant to bo the boss). 


2 

TXD 

.> 3 

RXD 

3 

RXD <- — 

. 2 

TXD 

4 

RTS 

.> 5 

CTS 

9 

CTS < — 

. 4 

RTS 

6 

DSR <™ 

. 20 

DTR 

20 

DTR 

.> 6 

DSR 


If you think the Hhole idea of having sone signals 
crossed and sone signals straight and sons signals 
not connected, on pain of death, is stupid, you 
are right, but there it is. In the COhS-l design 
I have tried to take obvious pairs of signals as 
pairs, and I have organized it so that in 
consequence the action of converting a C0t1S-l 
board fron DTE configuration to DCE configuration 
also has the effect of crossing over the signili 
Hhich iDAetines have to be crossed over. 

Said again in other Herds, the COHS-l beard can 
either be configured as a DTE, or by rejuipering 
it (by Means of push on shorting links) it can be 
reconfigured as a DCE. So far so good. The bonus 
of the Junpering Method I have used is that if the 
board is reJuMpered as DCE, but sons Nally still 
treats it as DTE Mlthout any crossed Mires in his 
interface cable, ny CDHS-1 board nay still be able 
to cepe. This is because My DCE configuration has 
been cunningly chosen to be the saie as a DTE but 
Hith the essential reversals of TXD/RXD RTS/CT3 
OTR/DSR already aade. Thus there is often no need 
for a special crossover cable to connect a DTE or 
a DCE to the CDHS-1 board. (This leaves sops 
signals out in the cold, because they Mill be 
outputs, say, at opposite ends of the laae Mire, 
Hith no obvious conpanion input signal Hith nhich 
to cross over. There's not Much I can do about 
this, save suggest that you leave one end 
disconnected, easy to do Just by leaving out the 
affected JLink.) 

As I hsve said before, Hhen this Method of serial 
connection nas first devised it Has perfectly 
sound, it is only the stupidity or ignorance of 
Manufacturers of conputers and peripheral 
equipoent (perhaps not recognising the distinction 
betneen DTE and DCE, and the logic of sale 
connectors for DTE and fenale for DCE) Hhich has 
resulted in the Mess He see today. There are 
perhaps hundreds of different nays of connecting 
things such as printers to computers via an RS-232 
interface, and the coMplexlty is due to loopy 
manufacturers using some signal of their oho, Hhen 
there Mas a perfectly good one already defined for 
the purpose. 

I hope you Hill forgive the fact that the CONS-1 
design Has intended only to cope Hith the saner 
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conritetiDDi diractly, and hat ttndid to Ignort tht 
madder ones. (Theta latter can of courte be 
patched in to individual choice by pending 
applicanti for adniiaion to the funny farm.) 

Other Slonalt 

I ihall noM mention the other tignali of the 25- 
May D type connector uted in the COHS-1 detign. 
Thii leavee eeveral Mhich Mill not be mentioned, 
and are not built into the baiic detign. The 
reaton for omitting then it that their pretence or 
abience on any ipecific equipment it only a matter 
of luck (good or bad!) and if you are obliged to 
ute then you Hill have to play thingt by ear. You 
Hon't get much help here from ne anyMay. 

Pin 1. Protection Ground. 

Pin 1 it the Protection Ground, once uted for 
earthing a OCE connected to a DTE, but noHadayi 
(thanka to the confuiion betMten Mhich of tNO 
given equipmenti it the OCE and Mhich it the DTE) 
of leti certain purpote. AnyMay, in thie detign it 
it connected to flV. It it probably aafett to 
connect pin 1 of one equipment to pin 1 of the 
other through the interfacing cable. 

Pin 7, Signal groun.d 

Pin 7 it the connon, tignal, ground, and ihould 
alMayt be connected to Pin 7 of the other 
equipment, via the interface cable. 

Pin 8. PCD 

Pin 0 it DCO (Data Carrier Detect) Mhich hat to 
far only been mentioned briefly. It it an input 
to a DTE and an output fron a DCE. Itt name only 
naket any tenie if the DCE it a nodem, Mhich it 
connected to a telephone line and receiving a 
valid "data carrier* tone. 

P< p ,,ll.u..8I£. 

Pin 11 it 8TP (Select Trantnit Frcquenciet). STF 
it an output fron a DTE and an input to a DCE. 
Again it la only relevant if the DCE it a nodem, 
Activating the BTF line inttructa the modem to 
coniider itaetf at the originator of a telephone 
call (the called party it than to be treated at 
the aniMerer). In nany circunitance different 
frequenciei from thote uted for an originator are 
uted for an antMerer, and thit alloNt "full 
duplex* operation (Hhere tiaultaneoue tHO Mty 
communication, aonetimet heard in ordinary 
telephone ipeech, it alloHed.) If each party hat 
to take turnt to trantnit Nhiltt the other 
recelvet thii it knoMn at 'half duplex", but thii 
eubject it contained in a Hhole neM can of Mormt 
Mhich I don't uant to open at the moment! 

(Many modern nodent (auch at our recommended 
Miracle Technology M930fl0 or NS4000 teriet) do net 
uie the pin 11 tignal, but make other arrangementt 
via "intelligent* toftHare comnandi.) 

Pin P i 

Pin 22 it RI (Ring Indicator). Thit is an input to 
a DTE and an output from a OCE. R1 only hat 
meaning if the DCE it a nodem. It it active Hhen 
the modem detects the pretence of a remote party 
ringing in. It it the logical equivalent of the 
ringing sound you hear from your oHn telephone 
Hhen you have just stepped into the thoMer. 

Pin 23. DSR 

Pin 23 is DRS (Data Signalling Rate). Thit it an 
input to a DTE, and it an output fron a OCE. It it 
another tignal Mhich is only relevant if the DCE 
it a modem. Mot all modems provide this tignal 
(our favourites the Miracle HS3OS0 and HS4000 do). 
The signal is produced by modems Mhich are capable 
of Horking at more than one data rate (for example 
3QD baud and 1200 baud) and able to detect 
automatically Hhen their highest rate it to be 
used Hhen 'auto ansMering" a call. The DRS tignal 
fron the nodem it of great ute to the DTE (ie to 
the computer in this context) because it alloMi 
the computer to snitch its onn baud rate to suit 
that of the calling party. In consequence an 


automatic "Bulletin Board' can be set up to 
receive calls at say either 300 baud or 1200 baud 
to suit the equipment of the calling party. 

Pint 15 and 17. External Clocks 

Pin IS and i7 carry tignali knoHn respectively at 
Transmit Clock and Receive Clock. They are both 
inputs to DTE and outputs from DCE. They are 
additional tignali Mhich are produced by tome high 
speed modems (say 2400 baud or mere) as part of 
their progressively more complex modulation and 
demodulation arrangement!. (1200 baud it near the 
natural limit on the ordinary telephone netmork, 
2400 baud and above demands extra complexity like 
thit, and usually rapidly eicalating expenie.) 

Signal Levels and Definitions 

I have (deliberately) been vague to far about the 
tignal levels in the above deicriptiont. 1 have 
described tignali as being 'active", and being 
input and output to DTEi and DCEt, Hlthout 
mentioning their actual levels. Thit it because 1 
Minted to get the meaning acroti in English Hord- 
type Mords, rather than Boolean Logic symboliim 
and other mathematical mumbo-Jumfao. The 
particular problem in describing R3-232 level 
signals it that "negative* logic it often used, 
Hhere a logic "0* it represented by a voltage 
level of around ^12 volts, and a logic "1* by +12 
volti. Worse ttili, the signals are "active Ioh' 
ie represented by logic "0", ie +12 volts, ie 
"active high" (tee, I've noM confuted myielf at 
Hell at you!) Here it a vade-mecum (ah, the 
benefits of a classical education) to Hhich you 
can c1ingI 

RS-232 Levelsi 

+12V ■ "ON", ■ "logic 0", • "Space" 

-12V ■ 'OFF", • ’logic 1", ■ "Mark" 

(The +12V and -i2V voltages are "nominal' and a 
Hide variation in these levels it tolerated (for 
example tome home and small business computers 
keep costs down by using voltage levels of +5V and 
-SV Instead of +12V and -12V)). 

Alternative Looic Deflnltioni 

At many of the bright young things Mho design 
modemi today Heren't even born Hhen negative logic 
Mat Invented, they prefer (and to do 1 really) to 
call the high (+12V) voltage level a logical 
"True" or "1", and the Ioh (-12V) voltage level a 
logical "False* or ”0'i 

+12V • "ON", ■ "logic 1', • "True" ■ "Space" 
-12V ■ "OFF", « "logic 0", ■ 'Falie* ■ 'Mark* 

They'll be telling me next current floHt into the 
+ terminal of a battery (mcU doesn't it?) 


CED- The circuit diagram for the COM 1 card 
folloMi. A detcriptlon of the circuit it after 
the b figil. 
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CQM_l_CIli:UIT DESCRIPTION 

Tht circuit discrlption ttill bt givtn with 

rtfirinct to tht flg't of tht circuit ditgrtt.. 

Fig 1 {Port Addrtii Dtcodinq) 

Fig 1 ihoNt tht port tddrttt dtcodlng. Tht card 
ritpondi to i block of 4 conitcutlvt 1/0 
•ddrtiftt, Hhich art tet by taking tht appropriatt 
•attinga on tht upptr 6 tHitchtt of DIL ttitch X8l 
(thi rtnaining 2 iMltchti of XSl do not influtnet 
tht addrttttt). Ltaving tht ttitch off 
corrttpondi to a '1' bit in tht choitn port 
addrtif) taking tht tHltch on corrtapendt to a 
'0'. Mhan any of tht loltcttd group of 4 portt it 
acctittd by tht cooputtri pin 19 of tht 74L.8&eB 
coaparator gott 1dm tnabling ont or othtr of tht 
tMD halvtt of tht 74LS139. If it it a Rtad 
(*Input‘} port accttt) tht upptr half of tht '139 
it activatadi if it it a Hritt {'Output') it it 
tht loMtr half. 

Tht allocationa for tht Rtad addrttatt art at 
folloMti (Nota that tht rtad and Hritt porta art 
txprttttd counting froa a bait of 0, but if tht 
addraia ttltction llnka art att to chooat any 
othtr batt thtn thit autt bt addtd, for txaaplt if 
tht tHitchtt art att to 20 (htxadtciaal notation) 
tht folloHing x0,xl,x2,x3 portt Hill btcoat 

20,21,22,23.) 

x0 Rtad tht UART Statui (to att if data can bt 
Hrittan to or rtad froa itt data port). 

xl Road tht UART Data Pert (do thit only afttr 
you havt chocktd tho UART atatut). 

x2 Rtad tht variout control input llnti of tht 
aodta. 

x3 Not utod) but if thort it apact on tht 

circuit board thla Hill alloH tht coaputtr to 
rtad a DIL tnitch to that tht uatr can anttr 
variout dafault ttttinga, to bt adopttd by 
tho prograa Hhich tttt up tht board. 

Tht 4 Hritt portt havt tho folloMing algnlf Icancti 

x0 Writing to thit port tttt tht variout 
oporating paranttort of tht UART (for txaaplt 
tht nuabor of atop blta, parity ttc). 

xl Mritt tht data bytt to bo trantalttod ntxt to 
thit port (do thit only afttr you havt 

chtckod tht UART ttatuo by rtading Port 0). 

x2 9tt or rtttt tht variout control output lintt 
of tho aodta. 

x3 Writing to thit port atta tht baud rata for 
rtctivt and traniait. Tht upptr 4 bitt ttltct 
ont of lb poiiiblt baud ratta for trantolt, 
and tht loHtr 4 bitt atloct ont of ib 
poiaiblt baud ratot for rtctivt. Ofttn tht 
rtctivt and trantalt baud rattt art chettn to 
bt tht taat, but in aany tyattat difftrtnt 
ratta art choatn for rtctivt and tranaalt, 
and it it a grtat Mtakntat ahoan in Inftrior 
doaignt to Inaiat that both rattt art to bt 
tho tatt. 

Flo 2 (Clock 6tn. Data But Tranctivtr) 

Pig 2 of tht circuit diagraa thoHt tht baud ratt 
gtntrator chip 'AY-S-Bl1b/CON 811b* and givtt tht 
tablf of available baud ratta. If 'rl2V it 

conntcttd (aa thoHn dotted) a tinllar chip '6FR 
1941L' can alto bt uttd. (No hart Hill bt dont if 
thit +12V it connected to pin 9 of the Bilb, 
although it doti not require thit voltage for itt 
OHn operation). 

Alto on thia fig it the 74L9b45 tranactlver Hhich 
bufftrt all the data in and out. It hat tno 
control lintai BUFF£N(L) Hhich tnablat the 
tranaceivtr for the atltcttd group of 4 I/O Porta, 
and DIR(L) Hhich it Ioh Mhtntvtr the operation it 


a rtad (Input), and it high for a Hritt (output). 

A novel Method of generating the buffer enable end 
direction controlt for the 74LSb4S hat been 
iapltttnttd htrti Tht direction la left in 
Hhattvtr atatt Hat aptclfitd by the atart of the 
current accttt (thut providing valuablt additional 
'data hold tlat* ofttn denied by other 
b' arrangtMtnte). Whan the prteent accttt it a 
'Hritt* the enable tignal ia active centinoualy 
until the ntxt 'read* acctat. (For a rtad the 
enable tignal ptrtiate only for the duration of 
the Microproctttor rtad tinea the HPU tiling dott 
not require a data hold tiae, Hhich ia fortunate 
btcautt it Mould not bt a good idea at all to 
leave a peripheral card data tranctivtr like thia 
enabled ptraantntly onto the ayatiM data bua in 
the rtad directionf) 

Fig 3 (UART. PoHtr On Rtatt. Butv) 

Fig 3 ahoHa the UART itttlf. Thit can be any of 
the Mtll knoMn 'induatry atandard' 40-pin typtt, 
of Hhich the AY-3-181S ahoHO hart it typical. 
Exttnaivt uat hat been nadt of dedicated RS-232 
interface chipa to tranalate the RS-232 Itvtla to 
and frot the TTL Itvtla uttd by the rtat of the 
coMputtr. The 14BB (alto knonn at 73188) it uttd 
to drive a lint to RS'232 Itvalt, and the 1469 
(alto knoMn at 7SiB9) ia uttd to receive thoat 
Itvtla and tranalate that back to nortal TTL. If 
there it apact on the board hi tay take 
arrangeaentt to alloH for 'true* or 'inverted' 
terial aignalt, although thia it hardly necteiary 
bacauae tlit convention of data trananitaion at RS- 
232 Itvtla of 'Mirk* and 'tpact* ia Mtll 
tatabliahed and ahould not need Invtralon (unltti 
toMtone tilt hat dropped a clanger). 

Certain UART chipt do net inltialiit correctly 
unleat they are phytically rttet by a 'reitt* 
tignal (thia aoittiMta txplaina Hhy tote ptopla 
inaiat that a aort expentive vtraion of the UART 
chip givtt tort reliable operation than the 
'ordinary* typea - perhapa the only difference la 
the 'poHtr on* bahaviour.) A 'pOHtr on rtitf it 
provided by the l0uF capacitor XCl (the diode XCRl 
it uttd to difchargt thit quickly at poHtr donn to 
that it Mill bt ready to provide the rtiat pulat 
again thould pOHtr bt rtttortd inmtdiattly), and 
the NR8T tignal froa the bua ii alto brought into 
the circuit to that thia card Mill bt rattt 
Mhtntvtr the rtat of the coputar it rattt (uiually 
by operating the met initch on tha CPU card). 
(An option to bt contldtrtd for the dtalgn of the 
peb ia to alloH the NRST path for rtttt to bt 
ditabltd} during tatting of niM loftMari it can bt 
quite uatful if prt-tatabliihtd aettlnga of UART 
paraatttrt and aodta control lintt art not Hiptd 
out each tint the CPU reiet button it pratttd. 
Thit Hill not bt prtiantad at a uatr itlactable 
Juaptr link tatting for the aodta control lintt, 
btcautt it it uaually deairablt that they art 
returned to knonn itatea on reitt, to guarantee 
that the aodea reltatet the telephone lint, and 
prevent accidental aattivt telephone billi.) 

In noraal operation the RDSTAT(L) lino ia brought 
loH to alloH the UART itatut to bt gated on to the 
internal data bua on thit card and to on to the 
tain coaputtr data but. Tht tain itatua aignalt 
to bt exaained art t- 

'TBMT* (tranaait buffer eapty) 

*DAV' (data available), 

Theta havt to be true before you can tend or 
receive data reipectively froa the UART, but other 
aignalt of intareit art i- 

EOC (end of converaioni, 

OR (overrun), 

FE (franing error) 

PE (parity error). 

Special arrangtMtnte have been aadt (Katitron 
faihion) in the route of the tignal froa pin 22 of 

the UART - TBMT. Even if the tranaait buffer ia 
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Indted inpty, thi coaputtr Hill only bolitvt thli 
If thi *BUSY’ input 1« in thi itatt Mhich 
indlcatti not buiy. Variou* link lattlngi (to bt 
dticribedl alloH you to chooaa Mhich atata thit 
Hill bt, or if you Miah to diaablt thia featurt 
altogtthar. Tht idaa of tht buay lint it to 
provida a vary cruda aathod of alloHing tha atata 
of a printar (Mhtn it ia 'buoy', ia unabla to 
ractlvt aora data for tha tiaa balng) to evarrula 
tha "eapty* atatua of tha UART, and ao pravant 
further trananiaaion of data until tha printar la 
no longer buay< 

There are much aore aophlat 1catad aathoda of 
achieving thia (eg X/ON X/OFF or ETX/ACK 
aignalling, or the uea of tha control linaa RTS, 
CT9 etc), but thia cruda aethod ia very affective 
at a quick way of achieving tha daairad raaulta 
during tha tatting atagaa of ntH or taaporary 
inatallationa, and in tha caaa of a printar 
connection it it alHaya coaforting to knoH that no 
natter Mhat goat Hrong Mith the aoftMtra you aay 
have Mritten, tha hardHara buoy atgnal Mill 
prevent printar buffer overrun. Tha polarity of 
tha BUSY algnal ia aalactabla to auit variout 
apaclal circuaatancea (aore on thia in tha 
deacriptlon of the 'Buay Llnka” on Fig 4. (A 
future radrtH of tha dlagraaa ahould put tha Buay 
inveraion link on Fig 3 to that everything to do 
Mith Buay can be praaanted at one Bitting.) Tha 
arrangement na Intend at noraal la to include tha 
inverter, by linking pint 1 and 2. 

Hhen data are to be read fron tha HART (after 
teating tha "DAV atatua) tha RDDAT(L) Una goal 
loH, (Hhen tha coaputar raada that port), and 
gataa tha DB0-DB7 data linaa on to tha but. (Tri> 
atata gating la uaad, ao that no conflict! arlaa.) 
Notice that the 'RDE* (read data enable) pin 4 of 
the UART ia alio connected to tha 'RDAV (raaat 
tha data available flag) pin 16 ao that the 
coaputar can aaaily be prograaaad (by teating tha 
DAV flag before each read) not to read the UART 
data port again until fraah data la available. 

The MRDAT(L) line Hritaa data froa tha coaputar 
Into the UART (tha program having firat checked 
the 'TBhT' atatua) for tranoalaalon. 

Logically there la no meaning to defining a 
NR3TAT(L) (Hrita to UART atatua) port, bacauaa tha 
atatua linaa from tha UART are developed 
internally and cannot be Mritten to. HoMavar in 
thia dcaign tha HRBTATd) line aarvat another 
purpotai It ia connected via an inverter to tha 
■C8' (control atroba) input pin 34 of tha UART, 
and paiaaa the data on tha data but at that time 
into the control ragiatar inaida tha UART to 
apacify luch thingi aa tha nuabar of atop blta to 
ba uaad, parity, ate. 

Flo 4 (hodam Control Input Buff V Output Latch) 

Fig 4 of tha circuit diagram ahoHi tha uaa of tha 
NRNODEIilL) and RDNODEN(L) porta. After a nrite 
(output) Mhich talcaa HRhODEfKL) Ioh tha 74LS273 
latch Mill atora Hhatavar data Maa Mritten to it. 
Thia can be Mhataver ia required to control tha 
modem in uaa. Similarly any of tha aignali from 
tha modem can ba read (input) at tha RDNOOEH(L) 
port. 

A buffer for B input llnea and a latch for 8 
output lines have been provided, but not all 6 of 
tha output linaa have bean used. 

The SI (UART Serial data input, from RXD or TXD on 
tha D connector) hat been brought into the input 
buffer, bit 5, ao that the loftnara haa the 
opportunity of examining thia line directly to 
attempt to determine the incoming baud rate, and 
aet tha UART accordingly. Soma of tha 
'intelligent* modema have built in means for doing 
this, but if tha device mis something other than a 
modem - an unintelligent aerial keyboard, aay - 
the intelligence quotient of a modem Mould be 
irrelevant. (The crude May of determining an 
unknoNn baud rate ia simply to try all 16 ratei 


and axamina the UART output, plus its framing 
error, parity error, etc, outputs until aanae la 
datactad in tha gibbariah. Of couraa tha 
connection ms are diacuaiing for SI does not 
pravant the 'suck it and laa* approach from being 
adopted if you prefer.) 

Tmd further algnala, MTCLK and MRCLK, are shonn 
connected to tha input buffer. Theta are the extra 
clocks (Transmit and Receive, to data bits 4 and 3 
respectively) Mhich are output by high ipaed 
modama. They are of little direct uaa connected to 
tha buffer (lave to alloH the softMire to test 
thcie blta to determine that a high speed modem la 
present), and their main purpose la to alloM a 
convenient point for connecting tome unknoHn 
aignal from the 25-May D connector to the buffer 
if required. (Thia is dona fay replacing the 
appropriate jumper link(s), ahOMn on Fig 5 of the 
diagram, Mith a direct connection to the signal of 
your choice. I cannot be aore specific here, 
because I can't think of a reason Hhy you Mould 
Msnt to be doing thia, I have merely provided the 
facility to let you make alterations if you Mith.) 

There la aoma more to be said on the topic of the 
'buoy' line. At the loner left of the diagram on 
Fig 4 is a set of links called 'Busy Llnki'i 
thase alloH various options as folloHS (note that 
on the finished pefa na intend to alter theie links 
ao that 'X' it at tha bottom and tha BV connection 
le at the top). As tha preaent dranlng stands 'i- 
i* ia at tha top and '6-6' it at tha bottom. 

Link Function 

1- 1 Not used (the left-hand pin 1 ia merely a 

termination point for soma special signal the 
user Hants as buiyi signal 'X') 

2- 2 Signal 'X* la the buay signal. 

3- 3 DTR (R8-232 pin 20) ii the buay signal (for a 

COKB-1 board configured aa DTE, connected to 
a printer also configured as DTE, tha 
conventional 'crackpot" nay). This auita many 
printers, eg Epaons nith 8148 and some other 
aerial R8-232 interface, Quma Sprint S 
Daiiynheal etc. 

4- 4 8TF (R8-232 pin 11) is the buay signal (for a 

C0H8-1 board configured aa DTE, connected to 
a printar alto configured aa DTE, the 
convantional 'crackpot' nay). Thia alio auita 
many printers, eg Epaona Mith 6148 interface. 

5- 5 This is the selection of a permanent 'buay' 

aignal. On the face of it of little use, but 
perhaps of benefit for a sHitch to prevent 
the tranamlasion of data for tome reason (eg 
to prevent damage to a repair man Mho la 
reclining inaida a printer mechanism Mhich it 
poMered on for some test purpose.) 

6- 6 This ia the selection to disable the 'busy' 

signal, ie no busy aignal can taka effect. 
Thia la useful at a test position for a 
printer Mhich has a aoftHare handshaking 
protocol implemented (eg XON/XOFF) - so that 
you can test that it la the toftMare 
performing the handshaking, not the hardnarc 
buay aignal. And of couraa this is the 
position for those applications Mhere a 
printer 'busy' hat no meaning, for example if 
the COHS-1 is the Interface to a Nodea, its 
primary application. 

Noraallyi link 6-6 and vary thia to introduce a 
busy signal only if circumatancea dictate that one 
is needed. 

(The strange zigzag layout of the common aignal to 
the group of pint haa been adopted to mlnimiia tha 
chance of detrimental short circuits if a Jumper 
link is inadvartently placed in a vertical 
position, through force of habit, or momentary 
Inattention on the part of the user.) 
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Th§ fiS-232 to TTL, ind TTL to ^^S-23>*vljfvfri 
tranilatlng ics (1499 ind 1489 

•n Inverting action, le a rising voltage ort their ^ : 
inputs produces a tailing voltage on thelV‘^outp'Uts 
and vice versa. This is in agreeaent with the. . r v 
convention ot ’negative" logic already;, di scv*i*(l'r ‘ > 
tor RS'232, and explains Hhy no compensating 
additional inverter is nornally required on the 91 
(serial in) and SO (serial out) linos, t-e RXO and 
TXD. HoHever He ordinary people like to.think. ij) 
ordinary ‘positive" logic levels, Hhere *5V ji a; 
logic "I’ or "high", and 0V Is a logic or 

"loH*. Theretore the input butter He use i’s S 
74LS240 (an inverting device) and similarly the', 
outputs ot the 74LS273 are additionally inverted, 
by a further 74LS249. The additional inversion id: 
the 74LS240 ettectively cancels out the inversion 
in the RS~232 level translation ics. The 

particular choice ot the 74LS240 tor this purpose 
has been made so that any users nho dispute the 
wisdom ot using positive logic in this application 
are at liberty to substitute a 74LS244 in either 
position. (Ue must note that spare packages in 
these chips must therefore not be used as 

inverters in the finished pcb design.) 

There however is one very significant resulting 
benefit of the inverters after the 74LS273i At 
power on, or when the CPU reset is operated (it 
this function is enabled ot course) the 74LS273 
initially has outputs which are all ‘d’s. this 
means that the 0 connector signals listed next are 
all at the negative voltage level, which is 
defined as the "OFF" eonditioni 


Connector 

Sig Name 

State Pin 

(DTE 

connection) 

4 

RTS 

OFF 

(ie 

no request) 

11 

STF 

OFF 

(ie 

‘Originate) 

20 

DTR 

OFF 

(ie 

not ready) 


The most important signal above which 1 want to 
mention is DTR (data terminal ready). It is often 
vital with some types ot *auto answer' modems that 
this signal be OFF at power on, until the 
operating software explicitly turns it! on. 
(Otherwise, certain manufacturers modems will take 
it on themselves to answer any incoming call at 
the first incoming ring, automatically select the 
baud rate, and then be totally impotent to do 
more, as no operating software is yet in control.) 
And obviously it is in genera) a contradiction in 
terms to issue the important DTR (Data Terminal 
Ready) signal to a modem it in tact the Data 
Terminal is not ready. 

A further benefit to choosing the DTR polari'ty to 
be OFF at power on and reset, is that it some 
communications experiments you are making get into 
a mess, (tor example it you are trying to make the 
modem disconnect from the telephone line, but 
thanks to an error you have made in your, -software 
design the modem is not able to receive your 
commands), the Interak computer system can 
automatically force OTR OFF it the computer reset 
switch is activated. (DTR OFF is taken by most 
modems as a clear hint that they should disconnect 
from the telephone line forthwith .) 

(I must here express my thanks to users Andrew 
Dawson-Maddocks, Tom Evans, and Dave ('Flash') 
Gordon who ottered much helpful discussion on 
these matters whilst the CONS-1 design was being 
devised.) 

The 1499 and 1488 devices were designed by their 
manufacturers to have specific features that are 
beneficial when they are applied to their main 
purpose ot connecting to the RS-232 interface. 
Firstly (with suitable protection diodes where 
necessary, built into this design ot course) they 
are not damaged it computer power is removed when 
they are connected to an active RS-232 line. The 
1488 tor example otters at least 308 ohms to such 
a line under all conditions (which is much 
preferable to a short circuit, which might be the 
result of some home-made discrete circuit or 
casual op-amp bodge). 
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Nor arb they damaged whe.i they are active, but the 
RS-232 line it inactive. Thus It is not necessary 
to worry about the RS-232 connection when 
switching on and oft mains supplies to the various 
peripheral equipment (printers, modems, etc) to 
which the COHS-l board may be interfaced. 

A further benefit of the 1489 and 1488 devices is 
that they default to known levels when the power 
is'-.'down at either end of the link (there is 
provision for altering the input thresholds of the 
'1489-vby means of externa] components, but in this 
•de^sign we find the thresholds as given are 
perfectly acceptable for our purpose.) 

This is how the 1489 device interprets some of the 
possible inputs presented to it: 


Input Interpreted asi 

♦ 12V . ON 

-12V . OFF 


0V (and open circuit, or "dead" line) ... OFF 

The 1488 device will present the following outputs 
for the following conditions: 


Output State 

Voltage 

(Wl11 be Interpreted at 
receiver as) i 

ON 

♦ 12V 

ON 

OFF 

-i2V 

OFF 

Unpowered 

0V 

OFF 

You will see that the 

state of power down at 

either end 

(sending or 

receiving) of the RS-232 


line it to default to the "OFF" condition, thus 
for example a modem will tee its DTR (data 
terminal ready) input ‘OFF* if the computer is 
powered down or reset. 

(It is at this stage that we see that our earlier 
distain at the confusing negative logic levels 
used for RS-232 was not fully juttifiedi there was 
definitg method in the old timers' madness 
tliey'd .'thought of everything before the home and 
small '^u'tiness computer lobby came in and messed 
things up' > 

Each driver in the 1469 devices has a "response" 
pm. This allows the input threshold voltages to 
be adjusted by a resistor to *12V (say) or -12V, 
and the ac 'alternating current, or switching) 
response to be adjusted with a capacitor to 0V. 
The polarity of the voltage chosen to which to 
connect the resistor will be influenced by what 
logic level you want an open circuit input to 
assume. (As I said before, the existing thresholds 
of the devices 'as supplied* are perfectly 
acceptable to us, thanks to the addition of the 
74LS240 inverters immediately after them, but we 
intend the finished pcb to have provision for 
small capacitors to allow the ac response to be 
varied. 

Typical arrangements have a 47k resistor from the 
response pin to -12V, and a InF capacitor from the 
response pin to 0V, but in the absence of better 
Information you can begin by leaving the response 
pinopen circuit. (I recommend you leave things 
alone unless you know what you are doing, in which 
case you will need no guidance from me!) 

In a similar manner the output ac characteristics 
of the i488B can be tailored for particular 
circumstances. The speed of the transition from 
one logic level to another can be reduced by 
adding a capacitor from each individual 1488 
output to DV. The benefits of this are to reduce 
interference and crosstalk along the R9-232C 
connection. Such undesirable effects are 

aggravated by fast rise and fall times, and in any 
event the RS'232 standard probably bas something 
to say on this subject. A typical value for the 
capacitors in these positions if you want to try 
them is 330 pF, but 1 would not blame you if you 
went along with the majority and simply left then 
out! 
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Fig 5 (D Tvpt Counte tor *nd DTE/DCE Stltctlonl 
Fig 5 of the diagrin ahOHi the connections to the 
25-way D type connector and the DTE/DCE juepering 
arrangeeents. You will reaiAber that the C0M8-1 
board can be used either ai DTE or DCE (and also 
In a hybrid eanner as a DTE with soee of the 
connections crossed over, to save users the 
inconvenience of producing special crossed leads 
and using breakout boxes for knotty probless). 
Therefore the lines leaving this diagrae each 
carry two nanes, eg DRS/STF, according to the 
positions of the DTE/DCE links on the group of U 
5-pole pin asseablies CX' eeans there is no 
signal allocation for that direction on that 
particular line). If the possibility of external 
crossed-over cables say be ignored for the sosent, 
the signals on the RS-232 D type connector itself 
bear defined, unchanging nases, and their 
direction is defined according to whether this 
board is configured as DTE or DCE. 

Rigorously, this board should have a sale 
connector if it is to be thought of as a DTE, and 
a fenale connector if it is to be thought of as a 
OCE. However we recognise that it is too late for 
anyone to inpose rigor on a situation which has 
careered entirely out of hand, and we would not 
think too badly of you if you chose to use a 
female connector in every circumstance. (However 
note that nobody we have heard of so far ever uses 
a male connector on a DCE| DCEs always have fenale 
connectors so you are definitely on your own if 
you configure a DCE with an (incorrect) sale 
connector). 

The "DTE* allocations are those which obtain when 
pins 2-3 are linked on each pin assembly, and the 
'DCE" allocations correspond to links 3-4. The 
pins 1 and pins 5 are nerely test or termination 
points, and allow caution to be thrown utterly to 
the winds if you wish to undertake free form 
knitting to scramble the wires entirely (perhaps 
to suit some unyielding third party eguipsent's 
requirements). 

Note that a coneon piece of Jumpering which is 
needed for some DTE applications to force action 
from a set up which doesn’t want to work with 
normal connections (don't ask me to explain why, I 
think the whole system has been overrun by madmen) 
is to connect DSR (D connector pin b) to DTR (0 

connector pin 20) and DCD (D connecter pin 8). H 

you need to make such a connection, you will be 
pleased to see that on the group of 16 pin 

assemblies these signals are very close to one 

another and my be connected by wire wrapping to 
pins 1 or 5 or others as appropriate, or even by 
vertically positioned push fit JLinks for some 
simple configurations. 

In similar vein note also that RTS (D connector 
pin 4) and CTS (0 connector pin 5) are adjacent, 
and may be shorted together if necessary to suit 
some particular system requirements. 

Fig 6 (Power Supol tes. Protection) 

Fig 6 of the circuit diagram gives some power 
supply details, and mentions the need for 
decoupling, both with electrolytic capacitors to 
provide a local reservoir of charge, and high 
frequency decoupling capacitors to cope with 
transient requirements when logic levels switch. 
Protection diodes have been inserted into the 
supply lines of the 1488 devices so that when the 
computer is powered down there will be no 
conduction path from any of the lines connected to 
the outputs of the HdSs. If this is done no 
damage will occur to the COhS-l board outputs or 
inputs even if it is connected to an R8-232 line 
which is being driven with voltages from the 
remote end. This subject, and that of tailoring 
the response of the 1406, has already been covered 
in the description of the circuit on Fig 4 of the 
diagram. 


Specific guidance of settings for Use with 
recommended MS 4000 modem, and Interak 
Communications Software now follow i- 

It is suggested that you locate this card starting 
at 20H (the "H* means hexadecimal notation). The 


OIL 

swltch 

settings for this 

are (see Circuit 

Di agr 

'am 

Fig 

1)1 



Sl-l 

ON 

Bit 

7»0 



Sl-2 

ON 

Bit 

6>0 



81-3 

OFF 

Bit 

5-1 



Sl-4 

ON 

Bit 

4-0 



81-6 

ON 

Bit 

3-0 



81-6 

ON 

Bit 

2-0 



81-7 

ON 

Bit 

1-0 

(these last two 

are “Don't Care’ 

81-8 

ON 

Bit 

0.0 

settings, set 

ON for tidyness) 


The "Invert Busy' Jumper (Circuit Diagram Fig 4) 
should be set to link pins 1 and 2. 

The 'Busy Link* (Diagram Fig 4) should be across 
6-6, thus disabling the Busy function entirely 
(nowadays all handshaking with modems is generally 
executed by the software). 

DTE/DCE selection links (Diagram Fig 5) should all 
(16 in total) be placed in the "2-3' positions to 
configure the C0)18-l board for DTE operation. 

Communications Software for C0H3-1 
There is no need to reinvent the wheel and write 
your own software for this purpose. A useful 
public domain program, which is reasonably easy to 
alter to suit your own particular set up is 'UKH?" 
from the CP/H user group and others. 

Better still, it is available already partially 
patched from the SYSOPs at the Interak Bulletin 
boards (or from Greenbank Electronics in case of 
difficulty). (On a 3.S' Interak CP/H diskette the 
charge from Grcenbank is 5.00 * VAT, including the 
diskette itself, but a friendly SYSOP may have it 
cheaper, or even let you download it for free if 
you can accept It that way - don't forget that you 
can still call a Bulletin Board and download the 
Initial software even if you only have a tape 
system operational at the time.) 

Also see lUQN 14 for the COMM driver software that 
will allow you to run a modem using a Zymon tape 
based Interak. 

Bulletin Board Contactsi 
(Tom Evans) 

TAECOHM-INTERAK BB 
129 Cranborne Maye 
Hayes 
Middlesex 
UB4 OHR 

Datai 01-573 8822 
Times (1900-0700 hrs) 

Voicei 01-561 2639 

However to aid new users patching existing 
programs, or even writing their own here are some 
brief notes of software guldancei 
The various procedures are very easy, and only 
take a few lines of program. Note that this is in 
stark contrast to the convoluted code required to 
work many of the dedicated microprocessor "family* 
SIO, DART, USART, etc chips) they can look simple 
on a circuit diagram, but are much harder to use 
in practice (and anyway do not always include all 
the modem etc control lines presented in this 
design), 

Before you begin you should perform the following 
initialisationi 

1. Output to Port URSTAT(L) a suitable pattern 
of bits for the control register inside the 
UART. In this design as given the bits have 
the following significance! 


(Dave Gordon) 

FLASH GORDON'S BB 
The Planet Mars 
c/o 229 Stonelow Road 
Dronfield, Derbyshire 
818 6ER 

Data 0246-410873 
Times (2300-0700 hrs) 
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D7 Thi itatt of thil lint it iittttrlil. 

D6 Thff ititt of thif lint it itiattrial. 

D5 NP (no parity). If itt (■ 'I*) Mil) add 
no parity bit Hill bt apptndtd to tht 
data bitt. If rtttt CS’) Hill apptnd a 
parity bit. 

D4 EPS (tvtn parity taltct). If a parity 
bit it to ba apptndtd to tht data (ttt 
undtr NP abovt) it Mill havt tvtn parity 
if EPS it T, and odd if EPS it '0" 

03, 02 NB2, NBl rtiptctivtly. Thtia control 

tht nuabtr of biti to bt traniaitttd, 
according to tht folloHing tablti 
NB2 NBl 

009 bitt 
0 1 6 bitt 

1 0 7 bitt 

1 1 G Dltt 

01 Tht itatt of thit lint it ittattrial. 

00 TSB (trantaitttd atop bitt). Thit 
ttltctt tht nuabtr of atop bitti 
0t 1 ttop bit 

li 2 atop bit! for 6,7, or G bit data, 
and 1.9 ttop bitt for 9 bit data, 
(at atltcttd by NP2 and NPi abovt). 

For B-bit, no parity optration (at coatoniy uttd 

on bullttin boardt) tht patttrn of bitt it 0FFH. 

In ZG0 atttably languagti 

(UART ttt up 
UARTSUl LD A,(0FFHI 
OUT (STAT),A 

2. Output to Port MRGAUDd) an appropriatt 
patttrn of bitt to att tht chottn baud ratts 
for traniait and roctlvt. Tht upptr 4 bitt 
of the byta ttlact the baud rate for 

trananit, and the lowtr 4 bite itltct that 

for receive, according to the folloHlng 
table I' 

-Tran fA it'*”’-" ------Rjgjive— 


D7 

D6 

D9 

D4 

Hex 

. Baud 

D3 

D2 

D1 

D0 

Hex 

. Baud 

0 

0 

0 

0 

0 

50 

0 

0 

0 

0 

0 

50 

0 

0 

0 

1 

1 

75 

0 

0 

0 

1 

1 

75 

0 

0 

1 

0 

2 

110 

0 

0 

i 

0 

2 

110 

0 

0 

1 

1 

3 

134.5 

0 

0 

1 

I 

3 

134.9 

0 

1 

0 

0 

4 

150 

0 

1 

0 

0 

4 

150 

0 

1 

0 

1 

9 

300 

0 

1 

0 

1 

9 

300 

0 

1 

1 

0 

6 

600 

0 

1 

1 

0 

6 

600 

0 

1 

1 

1 

7 

1200 

0 

1 

1 

1 

7 

1200 

1 

0 

0 

0 

8 

1800 

1 

0 

0 

0 

B 

1000 

1 

0 

0 

1 

9 

2000 

1 

0 

0 

1 

9 

2000 

1 

0 

1 

0 

A 

2400 

1 

0 

1 

0 

A 

2400 

i 

0 

1 

1 

8 

3600 

1 

0 

1 

1 

B 

3600 

1 

1 

0 

0 

C 

4G00 

1 

1 

0 

0 

C 

4800 

1 

1 

0 

1 

D 

7200 

1 

1 

0 

1 

0 

7200 

1 

1 

1 

0 

E 

9600 

1 

1 

1 

0 

E 

9600 

1 

1 

1 

1 

F 

19200 

1 

1 

1 

1 

F 

19200 


For 300 baud rtctivt and tranaait (often uttd 
on bulletin boardt) the pattern of bitt it 
59H. In 280 aattably languagti 

iBaud rata tat up 
BAUDSUi LD A,(S5H) 

OUT (BAUD),A 

3. Begin MODEM operations, DTR (Data Terainal 
Ready) and RTS (Request To Send) Hhich Mtrt 
previously OFF by tht poMtr on reset 
nechanitn are noH both to be turned on. In 
2G0 atitobly languagei 

{Activate MODEM 
MODEMAi LD A,(20H) 

OUT (MODEM) ,A 


4. You noH havt to send a sequence of coatandt 
to the todea to set it up internally to suit 
specific requireaents, eg disable/enable auto 
ansHtr, redefine escape sequences, etc, etc, 
(set todsA tanufacturers aanual for 
guidance). Then you have to issue some dial 
comisnds (assuaing an autodial modem tuch as 
the US4000). 

All transaission and reception, of commands 
or data, is sent via the UART. The general 
Hay of outputting data to the UART is as 
fOl1OMSi 

(Output (send a byte) 

SEND! IN A,(STAT) {UART Status Port 
AND 80H {Test TBHT (bit 7) 

JP 2,SEND {Wait for TBMT-l 
LD A,D {Assuming Data it in D 

OUT (DATA),A (Send data 

The receipt of data or commands is timilari 

{Input (receive a byte) 

RECEIVE) INA,(STAT) jUART Statue Port 
AND 40H {Test DAV (bit 6) 

JP 2,RECEIVE {Wait for DAV»1 
IN (DATA),A {Receive data in A 

These routines Hill loop for ever in the 
event of some unexpected hardHare conditions, 
so a more sophisticated set of routines would 
have to decide what to do in this event, 
and/or allOM tone tort of escape (eg a key 
pressed by the user) to breali out of an 
endless loop. Alto there are seme UART status 
lines which can ba checked if desired, eg PE 
(Parity Error), OR (Overrun Error), FE 
(Framing Error). This is only from the point 
of view of the UART of course - it only hat 
the most basic checks available to it so even 
if the UART reckons it hat transmitted the 
data OK this is not a guarantee that the 
remote party received it. 

The program can of course be at complicated 
at you choose to make it, but I have tried to 
keep it simple for the benefit of the user 
who really needs the help, ie the user doing 
this for the first tine. 

9. A very useful signal which can be tested 
before sending data to a modem is the DCD 
(Data Carrier Detect) signal. If you want to 
test this, it can bo done as follows (I have 
shewn this as a subroutine, because DCD 
should be tested regularly eg in the middle 
of sending large blocks of data. It is 
upsetting to reach the end of a one hour 
transaission to discover that the called 
party hung up half an hour ago! The loss of 
the data carrier is a clear Indication that 
the communications link is broken and 
appropriate action should be taken.) 


TESTDCOi IN A,(MODEM) (Modem Port 

AND DIH (Test DCD (bit 0) 

RET 

On the return from this routine the Zero flag 
in the 2G0 can be tested to see if the Data 
Carrier was present or not. A non-zero flag 
indicates that DCD was "ON" (ie carrier 
present){ a zero flag indicates DCD was "OFF* 
ie (carrier not present). 

6. After you have finished, don't forget to hang 
up! If you know of no better method you can 
always pull the plug on the telephone line 
connection to the modem, or press reset on 
the computer which will force DTR (Data 
Terminal Ready) "OFF" and thus the modem to 
automatically "hang up". However common 
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Bob CoHdery (03UK6), 

1 Moodland May, 

Oak 1andi, 

NelHin, 

Herta, 

AL6 ORZ. 

Dear Ed, 

Juat a ihort note to bring things up to 
date. I have noH installed the 64 colunn VDU 
(official Interak version), This certainly makes 
the machine more useful and seems to Hork OK 
except that I sorietimes get some pixels left In 
the last pixel column of the screen and don't as 
yet knoM nhy. 

As 1 have not received the summer neHS letter yet 
1 don't knoH If you have included the Part Screen 
Handler I submitted back in July sometime, (Ed - 
this issue]. HoHever, If you have there are a fen 
problems to point out as folloNS i- 

1) . For a 64 col screen don't folloH my 
instructions as 1 did only to find they don't 
Hork. Instead change the equate SHIFT to 6. You 
Hill also find a bit of bad programming practice 
in the routine SCROLL, there are tno places Hhere 
a literal 32 has been used instead of the equate 
WIDTH. Finally you must change the equate WIDTH 
to 64 as indicated. 

2) . A couple of bugs crept in i- 

A). The equate MAXCONT should be 15K not 15, this 
Hill cause the bottom of the control table beloH 
CR to be ignored. 

8). Using the Inverted character set, any 
character ulth the top bit set will cause a crash. 
The cure is to insert the instruction AND 7FH 
before the CP D28H on line SSS. 

C). Finally, the comment in CLOSE is incorrect, it 
should say INPUTSi DoStream number. 

On a different tack, although 1 obtained a nen 
ZYHON from Greenbank for the VDU2K I still had the 
problem of updating ASH32 to ASH64. As I still 
seem to have no success getting softnare out of 
Pete Vella I decided it may Nell be quicker to 
have a go myself. This proved to bo more 
difficult than I thought and took an entire 
Saturday evening and all day Sunday, and there are 
still a fen problems left. Honever if anybody 
else is interested here are the mods i- 

13EF - C0 1 1400 - F5 I 13FD - C0 t 13FE - FS i 

1409 - 3F I 1415 - 05 i 140E - 40 i 1421 - 06 i 

13C4 - F5 I 13C3 " C0 i 

After doing these nods you hIH find as I did that 

the tape Hill not run at 2400 baud any more as the 
scroll tine for the larger screen is non too long. 
If you Hant to run at 2400 then the easiest nay is 
to stop the output to the screen Hhen loading. 
This can be done by the folloning mod i- 

12A5 - 00 I 12A6 - 00 I 12A7 - 00 

Finally the things that this doesn't fix as yet is 
that the delete key doesn't nork properly (mind 
you It never did on the ASH32 I have either), and 

on assembly to screen the PAUSE comes up In the 

middle of the screen and it only scrolls half a 
screen betHeen pauses. 

I've also included another short listing Hhich 
uses the Part Screen Handler. lED - Elsenare this 
issue). It's a very simple electronic typewriter. 

I wrote this mainly because I don't have any word 
processor software at present and this at least 
lets me get words onto paper (this letter was 
written using it). However if you don't have the 
Part Screen Handler this isn't going to be very 
much use to you. 
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Wtll 1 think I'vt racbltd on for long enough, lo 
until the next tiee. 

Bob CoMdery (B3UKB). 

[Ed - Thank you Bob for a really good article, the 
study of Nhich Mill give considerable insights 
into assembly programning. I think Greenbank do a 
disk package that includes a Hord processor Mith a 
disk based assenbler which I an sure you Mould 
find of great interest. Your additional progran 
has been placed at the end of the original as it 
follows very naturally on from it.] 


F.B.Johnson, 

32 Langdon road, 

Polkstone, 

Kent, 

CT19 4HX. 

Dear Bob, 

1 have recently aquired an 80 column VDU 
which has 22 progrannable function keys. 
Unfortunately the programmed data is not retained 
after switch off and it therefore ocurred to ne 
that it would be useful if these keys could be set 
up autonatically on a cold start. 1 therefore 
decided to change the nornal "DIR" startup coemand 
to facilitate this. Using DDT on the file 
CPM64.C0I1 I found it to be stored at 0A07 in the 
form t- 

0A07 03 Length of cormand 
0A0B 44 D 
eA09 49 1 
0A0A 52 R 

0A0B 00 End of cenmand 

There are IS bytes available which 1 have used to 
store the following as a new startup cormand 

SUBMIT STARTUP 

Using DDT this can be set up as below i- 

A>D0T CPMxx.COM Substitute size of your system 
for XX. 

DDT VERS 2.2 
NEXT PC 
2900 0100 
••S0A07 
0A07 03 BE 
0A0e 44 53 
0A09 49 55 
BABA 52 42 
BABB 00 4D 
0A0C 20 49 
0A0D 20 54 
0A0E 20 20 
0A0F 20 53 
0A10 20 54 
0A11 20 41 
eA12 20 52 
0A13 20 54 
BAM 20 55 
0A15 20 50 
0A16 20 00 
BAIT 20 . 

A>SAVE 40 CPHxx.COM 

Each disk may now be SYSGEN'd with the new version 
and a suitable STARTUP.SUB file written to set up 
keys and/or run programs to suit the disk. 

F.R.Johnson 

CEd - A very neat and original idea this and it 
reminds ne of the IBM VM Profile mechanism. One 
suggestion. Rename SUGMIT.COM as SUB.COM. This 
as SUB TASK is simpler than SUBMIT TASK for oft 
repeated operationsi Your idea opens up the 
Interak to all sorts of add on equipment, colour 
screens etc, as each can be Initialised at cold 
start. I wonder if you could tell us about the 80 
col VDU that you are using, is it available to 
normal mortals ect?, lots of people need a low 
cost 80 column interface.] 

« s s s 


Paul M.Nicklin, 

109 Devonshire Drive, 

Derby, 

DE3 SHE 

Dear Ed, 

I now have an Interak 48k * Zybaslc. The 
assembler A9M32 is very good and I have used it a 
few times, but there are some functions that I 
have seen used but can't get to work on my ASH and 
so I await the next part in the series of articles 
on using it. 

Many people, 1 fear may be unwilling 
to type in this program as, with a hex listing 
that long, errors are bound to occur <I made 20!1. 
Perhaps some bright spark could come up with a 
printer routine that prints checksums on the line 
and an input routine that checks each line of 
code. 

While building the computer a few 
difficulties arose, all but one have been 
discovered, the unresolved mystery is hidden on 
the KZB-3 board which refused to do anything until 
two MZB's were run together, ours and another, 
working, board. The card has been no trouble 
since. 

The Zybasic 2 tape didn't load first tine, 

but on inspection of the tape recorder a very 

loose head was revealed, the head could move 

freely. A large blob of glue repaired the broken 
part and with slight adjustment of the head the 
tape loaded perfectly. Ne have two tape 

recorders, the better one is a Phillips N2235 
which now works very well, the other is a Pye 
SXB923 which will load the Zybaslc tape alright, 
but won't save anything over 1200 baud. 

Zybasic is 

on the whole very good but it lacks features found 
on lesser machines such as the ZXBl (the computer 
that I used before) such as multi dimensioned 
arrays, for which formulas can be found [Ed 
elsewere in this issue}. The lack of trig 
functions is apparent but the 'Bits of Basic' help 
here. At first the string handling was 

unfamiliar, having used the ZXSl's easier system 
using TO, but again the problem was soon solved. 
My main difficulty is the abscence of PRINT AT, 
which can't really be simulated. 

Like many other 

Interak owners it is my second computer, my first 
was a 2X81 which I have had for over four years. 
The chances are that if Sir Clive had not invented 
his ZX81 then fewer Interaks would have been sold. 

I have recently left school and have a lot of time 
on my hands and so 1 have converted som programs 
for use on Interak BASIC, the two given seem to be 
linked, the first entitled BIORHYTHM will print a 
graph of intellect, emotion (< vitality. These 
repeat themselves every 33, 28 !< 23 days 

respectively. The second will print out a 
calendar for any month since 1572. The program 
will print calendars for months before that year 
but they will be wrong. The reason for this is 
because today's calendar, the Gregorian calendar, 
is different from the previous Julian calendar. 

Also included are formulae for simulating 3D and 
4D arrays, by looking at the pattern of formulae 
for 2, 3 and 4D arrays, higher dimensioned arrays 

could easily be thought up. 

Paul M. Nicklin. 

tEd- Thanks for the programs. 1 have put them 
elsewere in this issue. It’s wierd about the MZB-3 
problem but I'm glad all is now ok. Interak is 
more flexible that the ZXBl but I do agree it 
sometimes lags behind, due I think to lack of 
commercial push. Overall the people I talk to 
learn more with an Interak than any other computer 
and that is it's success. As to the bright spark 
- Why can't it be you?. Try to produce a checksum 
dumper and it can be presented to the other 
members via the newsletter. A study of Zymon may 
help as I produced checksums with it's tape 
handler.) 
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Bob CoHdcry (83UKB), 

1 Moodland Way, 

Oakland*, 

WtlHin, 

Herti, 

ALb ORZ. 

Dear Ed, 

Juit a short note to tell you that having 
completed a basic Interak system, I am non getting 
quite a bit ot enjoyment iron using it. Honever I 
must sympathise a little Hlth Mel Saunders point 
oi vlen as I too have an outstanding order #or 8/W 
from Pete for Hell over b months. 1 think the 
thing that is disappointing about it is that there 
is all this lovely softnare nhlch is ostensibly 
available for Interak but almost impossible to get 
hold of. 

Just to tell you a thing or tno about Hhat I am 
doing (hello, Hheres everyone gone!). I have 
enclosed a screen driver for VDUK/2K tED- 
elsenhere in this issue) nhich takes a very 
simplistic attitude to carving the screen up into 
a number of part screens (I don't think Apple have 
anything to Horry about!). Cynics might say the 
VDUK or even the VDU2K screen is small enough as 
it is Hithout carving it up into smaller bits, but 
be that as it may. The source is a bit long for 
the newsletter running to over 1800 lines 
including comments, thus 1 think if the editorial 
collective (le Bob Eldrldge) consider it to be of 
general interest, then it may only be a hex dump 
that is printed. The intension is to develop a 
simple minded scheduler for Interak when 1 get 
around to building a clock/tlmer module, and to 
use the above screen driver as a part of a general 
purpose multi-tasking 0/S plus Hhatever else seems 
necessary. The ultimate aim of all this (getting 
to the point at last) is to provide a suitable 
operating environment for programs intended for 
Amateur Radio use (my other hobby). The main 
problem I am going to run Into is the utter tedium 
of trying to develop reasonably large programs 
Hithout disks. Already, the first bit of it, ie 
the screen driver gets close to being too large to 
fit into memory, and takes some time to load from 
cassette (1 suppose Christmas isn't that far 
away). Anyway enough of my rambllngs, 1 look 
fornard to the next issue of Interaktion which I 
always find interesting. 

Bob CoHdery (03ijKB). 

tEd- Thanks Bob, a very novel idea, disks would 
extend the range posibilitles by a thousandfold. 
You could load overlays from disk as required so 
as to keep the 0/S down to 16k, the rest being for 
the applications software. Put two disks on and 
one could hold 700k.of 0/S overlays loded by the 
0/S in a form of page mapping-. Please keep us 
informed as to the progress as many members are 
interested in this typo of advanced application.] 

Mike Warton, 

'Swevenings", 

6 Ovitts Close, 

Winslow, 

Bucks, 

MKiS 30D. 

Dear Bob, 

Many thanks for taking the time, to 
contact me the other evening regarding the 
implementation of CP/M on the Interak. In fact 
there is an error in the listing of the Loader, 
actually more of an omission! 

I won't tell you exactly what it is, that would 
spoil the fun, but look on page 6/7 of lUGN 7, To 
give you a clue, where does the Instruction INI 
load the disk data to? 

Perhaps a note in a future lUGN of the corrected 
code would prevent anyone else ploughing the same 
furrow as me. 


Regards and happy bug hunting. 

Mike Wharton. 

lEd- Thank you Mike. I am glad I could guide you 
through it. Actually it wasn't a bug as my Boot 
Rom loads the HL pair with the correct destination 
address. Still for a stand alone application the 
HL pair should be loaded with the data address 
before the load begins.] 

• atiB 

Steve Padley, 

14 Wickham road, 

Fareham, 

Kants, 

P016 7EU. 

Dear Dob, 

In the past I have written a couple of 
articles and sent software up to the user group. 
Well this time the ball is on the other foot, I'm 
after information. Looking back over past lUON's 
you seemed to be somewhat of an expert on disk 
systems. 

Having recently got my disk interface up and 
running I bought the 3.5" drive from Qreenbank 
(wish I had another already). I now find myself 
wondering where to get software for this format 
and size disk. Looking at IU6N 11 I see you 
mentioned that you were going to send our standard 
set up to the CPNUOUK so that they may supply 
software for us. Does this now mean that the only 
possible sources of software will be Qreenbank and 
CPHUGUK !!! My one interest will be obtaining 
different languages from a disk based assembler to 
C, Forth, Cbasic, Pascal and any others. Up to 
now I've only used )(tal & ASM64. Is it possible 
to adapt Xtal to disk or can 1 get my Basic 
programs from tape to disk in some way? 

If you have any addresses of software houses that 
may provide software for CPM (if they exist apart 
from CPHUGUK) I would be pleased to have them. 
Any assistance you can give would be greatly 
appreciated. 

Steve Padley 


{Ed- I am not really a disk expert. I was the 
first to put my own CP/M onto the Interak, so I 
had to build a prototype board designed by David, 
modify the design to make it work, now known as 
the FOCI, then construct a GETSYS/PUTSYS/BIOS and 
BOOT using Zymon with tape cassette. After 3 
months sweat and some blood, CP/M signed on. I 
learnt a great deal during that timei the most 
valuable lesson being "Don't be the first to try 
something," Anyway 1 have good news for you. The 
1U6N disk library is operational, see the rear of 
this issue. Our format was unreadable by the 
CPMUGUK and Qreenbank have issued a modified 
format which should let then read our disks. Just 
send them a disk contalng some text with a print 
out of STAT DSKt. I am puzzled as to why you 

bother with Forth ect when "C" is the programmers 
tool at the moment? Several versions of "C" 

including a "C" compiler can be obtained from 

"Srey Matter Ltd" at 4 Prigg Meadow, Ashburton, 
Devon, T013 7DF. Phone them on 0364-53499. 

Finally thanks for your contributions, they are 
very interesting to the members, perhaps you could 
drop me a disk soon with some more of your work 
on. ] 
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DTl-1 Tapt Inttrfact card for tht Intiraki fully 
populated, but Hithout a front panel. £lfl.0flp or 
vary near offer. 

Hike Mharton, 'SHavenings', 8 Ovitta Close, 
MintloH, Bucklnghae, HK18 3flD. Tel. MinaloH 4367. 


1 x 19' Card cage and case . £30.B9p 

1 X ISBUS Mlth 13 sockets . £3e.B8p 

1 X Kultl-rail PSU . £35.eep 

1 X H2B-3 CPU card . £20.08p 

4 X NXD-2 Dynaeic rae . each C21.B0p 

1 X DTI’l Tape interface . £2S.00p 

1 X IP-1 Opto-lnput (Kiflitron) . £20.00p 

1 X OP-1 Relay-output (Kcaitron) . £20.00p 

1 X NENTA Z60 asseebler training aid ... £7B.00p 

HENTA is a Z80 davelopntent systee Hith TV display, 
tape I/O, and a keyboard assembler housed in a AB8 
case designed as an asseebly language tralniner by 
Dataman designs of Dorchester. 

Derry Cambell, 153 LoMer Fairmead read, Veevil, 
Soeerset, BA21 5SR. Tel 0935-78282. 


FolloHing this page is the first pages of the disk 
library. It is recomaended that you reeove these 
pages and file thee In their oun cover. He are 
confident that the Interak Public Doeain disk 
library will groH to quite a siie and additional 
pages Mill be Included in each issue of the 
nsMsletter. If you collect thee together as 
suggested they ulll greu to bscoee a valued index 
into the available softeare. 
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ItilERAK DISK LIBRARY 


A public doniin toftMari lib«ry hai batn tat up 
for tht uitr group on 3.S DSOO dltki. Tht 
Atjorlty of tha loftMtra origlnitai froa tht UK 
CP/n Utar Group public doaaln library, and I aa 
Indabtad to David Parkina Mho provldad aoat of tha 
aatarlal. 

Contributlona to tha libary Hill ba gratafully 
racalvad. Thata auat ba original or in tha public 
doaain. Prograai froa aagazina liitinga should 
not ba tubnittad unlaai paraitalon to do to hat 
baan obtainad froa tha Editor. Itaaa publiihad in 
tha lUGN can bo fraaly glvan, aubjact only to tha 
originators paralsaion. 

Ploaaa glva at auch Inforaation at poatlbla In a 
saparata .DOC flla. 

Tha usual rulaa applyi Prograai aay ba glvan auay 
but not rasold and copyright notlcas should not ba 
rtaovod froa tha prograas. As not all tha 

prograas hava baan taitad tharo aay bo bugs. If 
you find any plaasa lot aa knoH tspacially if you 
hava alao found a aolutlon. 

This loftwaro indax haa baan dasignod so that you 
can colloct tha pagai into a saparata foldar. 
Updatad and additional pagas Hill ba issuad in tha 
noHslattar as and Hhan raqulrad. 

If you hava any gaai for tha 'Public Doaain* sand 
than In and I Hill aako than availabla to 
avarbody. 

Hom to ordar a disk voluna i- 

You oust ba a aoabar of tha Intarak Usar Group. 

Chargtii Copying charga. 2.00 

Nadia charga. 3.00 or sand in your oHn. 

Chaquas or Postal Ordars <no cash, plaasa) should 
ba erossad and nada payabla to INTERAKTION and 
sant tot 

Mr C.BRID08TOCK, 

32 HIMBORNE AVENUE, 

THINONALL, 

NIRRAL, 

MERSEYSIDE. 

L.61 7UL. 

If you Hlsh to supply your oHn disks It is 
advlsabla to pack than batHtan tno placts of 
hardboard or slaitar natarial as 1 undarstand it 
is poasibla for tha* to ba crackad In tha Post if 
sant in an anvalopa or Jiffy Bag Mithout 
protactlon. 

Library disks art 3.5 inch doubla sidad doubla 
danslty (DSOD) to tha Intarak soft sactorad 
foraat. 

It Is advlsabla to print tha .DOC and .TXT fllas 
racalvad Hlth a nau voluna. This Mill alloH you 
to fully apraclata tha nan program that you hava 
obtained. Also anything nanad README. xyz is north 
printing. 

It Is probally a good nova to copy a disk racalvad 
from tha library. You can than kaap tha lib copy 
and gradually collect a full sat. If you latar 
require a file from tha lib you can find tha 
voluna from tha indax and copy it across to your 
Horking disk. 


Nhen submitting fllas to tha library plaasa try to 
stay Hith tha axtansion names protocol. In 
general, flla extensions hava tha folloMlng 
moaning i- 

Temporary file. 

ASH Assamblar source file. 

BAK Backup file. 

BAS Basic Source coda. 

C C language axacutabla file. 

CAT Cataloge.flla. 

CBL Cobol file. 

CHD DBA62 command flla. 

COM Command file, tha axacutabla program. 

CRC Cyclic Radundancy Check file. 

DAT Data flla, used by a program 
DBF D8ASE2 Data base file. 

DOC Docuaant file, ASCII file describing tha 
other fllas using tha sama fllanama. 

HEX Hexadecimal machine coda file. (Loadable). 

INT Intarmadiata coda. 

LBR Library flla. 

LST Basic Language source File. ASCII 
MAC H60 source file. 

NDX DBA8E2 indax file 

OBJ Object coda file. Lika .HEX 

OVL Overlay flla. 

PLI PL/1 source file. 

PRN Printer listing. Printable ASCII file. 

REL Relocatabla module. 

8YM Symbol flla. 

SUB Keyboard commands file. For SUBMIT.COM 
TXT Text flla, ASCII flla describing tha other 
fllas using tha sane fllanama. 
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LANGUAGES - FORTH-SS li LISP 


lUO i 


lUG 1 - 

FILENAME 

588k 

TYPE. 

SI2E. 

REMARKS. 

F83 

.COM 

24K 

FORTH-83 FOR CP/M BY PERRY 

README 

.80 

28K 

b LAXEN. 

F83 INSTRUCTIONS. DOC 

F83-FIXS 

.TXT 

8K 

F83 VERSION 1.0 UPDATE. 

BASIC 

.BLK 

20K 

BASIC COMPILER IN F83. 

CLOCK 

.BLK 

12K 

SOURCE FOR A CALENDAR 

CPU8088 

.BLK 

44K 

EXAMPLE. 

8080 DEPENDENT CODE. 

EXPAN088 

.BLK 

BK 

ORIGINAL SOURCE TO 

EXTENDSe 

.BLK 

32K 

EXPAND.HUF. 

EXTENSIONS SOURCE. 

HUFFMAN 

.BLK 

44K 

COMPRESSION PROGRAM. 

KERNELBB 

.BLK 

188K 

KERNEL SOURCE. 

METABB 

.BLK 

52K 

METACOMPILER SOURCE. 

UTILITY 

.BLK 

112K 

UTILITY SOURCE. 

USO 

.COM 

4K 

UNSQEEZES SQUEEZED FILES. 

LISP 

.COM 

2eK 

UPDATED LISP. 

INITLISP 

____ 

4K 


INITL18P 

.STB 

4K 


LISP 

.DOC 

16K 

INSTRUCTIONS. 


F83.COM 24K FORTH-83 BY PERRY l> LAKEN. 

Tht follOHing booki art halpFul in uiing F63i 
Intlda F83 by C.H.Ting. 

Maittring Forth by Andirson li Tracy. 

Forth. A taxt and rafartnca by Ktlly t> Spiaa. 

S • ■ 

META80.6LK 52K METACOMPILER SOURCE. 

MVP Mata-coapi1ar that paraita tha craation of nan 
Forth ayatana In tha Forth languaga. 
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LANGUAGES - COBOL, SMALL-C COMPILER ANB C PR068, ADVENTURE GAME 


lUG 2 


lUO 2 - S48k 



FILENAME. 

TYPE. 

SIZE 

REMARKS. 

CINTERP 

.COM 

IBK 

COBOL INTERPRETER. 

COBOL 

.COM 

16K 

N.P.B. MICRO COBOL VER 2.1 

EXEC 

.COM 

BK 

■ » ■ ■ 

PART 2 

.COM 

16K 

■HI. 

COBOL 

.DOC 

4eK 

INSTRUCTIONS. 

ADD 

.CBL 

4K 

COBOL PROGS. SEE COBOL.DOC 

CBLl 

.CBL 

4K 


CGL2 

.CBL 

4K 


DEMO 

.CBL 

4K 


8EQ 

.CBL 

4K 


DEMO 

.CIN 

4K 

** B * ■ ■ 

DEMO 

.LST 

4K 

H B ■ ■ ■ 

CBLl 

.CIN 

4K 

^ V flic 

CBLl 

• LST 

4K 

* ■ tf J| ■ 

CGL2 

.CIN 

4K 

^ ■ • • i 

CflL2 

.LST 

4K 

M JB ■ ■ ■ 

CBLl 

.FIL 

4K 

■ i ill 

ADD 

.CIN 

4K 

I ■ ill 

ADD 

.LST 

4K 

■ I ill 

ZSC-1 

.C 

20K 

SMALL-C COMPILER. 

ZSC-2 

.c 

20K 

SMALL-C COMPILER. 

ZSC-COMP 

.LIB 

12K 

1 ■ 

ZSMALL 

.COM 

24K 

■ ■ 

Z8MALL 

.DOC 

UK 

INSTRUCTIONS. 

C-UTIL 

.DOC 

4K 

DOC. ON TAB, LIST, 

FILECHOP, AND UNLOAD. 

CONIO 

.LIB 

8K 

SMALL-C LIBARIE8. 

CRUN 

.LIB 

8K 

• 1. 

CZMON 

.C 

12K 

SAMPLE SMALL-C PROGRAM. 

CZMON 

.COM 

8K 

■ ■ ■ 

FILE 

.LIB 

t2K 

SMALL-C LIBARY. 

FILECHOP 

.C 

4K 

CHOP LARGE FILES INTO 
SECTIONS. 

FILECHOP 

.COM 

4K 


LIST 

.c 

4K 

SAMPLE SMALL-C PROGRAM. 

LIST 

.COM 

4K 


NUMIO 

.LIB 

4K 

SMALL-C LIBARY. 

TAB 

.C 

4K 

SAMPLE SMALL-C PROGRAM. 

TAB 

.COM 

4K 


ZSBASMUK 

.COM 

12K 

ZB0 ASSEMBLER FOR USE WITH 
SMALL-C. 

Z8GD0CUK 

.DOC 

8K 

INSTRUCTIONS. 

ADV 

.COM 

3&K 

EXPANDED ADVENTURE GAME. 

ADVT 

.DOC 

4K 

INSTRUCTIONS. 

ADVI 

.DAT 

32K 


ADVI 

.PTR 

4K 


ADVT 

.DAT 

10SK 


ADVT 

.PTR 

UK 



CZMON.C 12K SAMPLE SMALL-C PROGRAM. 

CZMON.COH BK 

A ZG0 Monitor progri* illoMing Stt brf«kpoint, 
Copy nenory, DlipUy diik dir, Extcutff progrti, 
Input/Output to t port, Rttd «nd Hritt filii plui 
■any othor ficilltlti. 

mmm 

LIST.C 4K SAMPLE SMALL-C PROGRAM. 

LIST.COM 4K 

Lilt an ASCII fill to tho ceniola, 20 linti p#r 
ktypraii. 

9mu 

TAB.C 4K SAMPLE SMALL-C PROGRAM. 

TAB.COM 4K 

Convtrti Into) Toriat Tilti luch at .HEX filai 
Into a tabuiatad htx lifting. Tha output can ba 
diractad into anochar Tilt. 
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lUO 3. - 
FILENAME. 

S6Bk 

TYPE. 

SHE. REMARKS. 

6CKUP 

.CON 

4K 

DISK BACKUP PROGRAM. 

CONPARE 

.con 

4K 

BINARY FILE COMPARISON. 

COPY 

.CON 

4K 

DISK COPY PROGRAM. 

CPACK 

.DOC 

12K 

DOCUMENTATION FOR BCKUP, 

DOS 

.CON 

4K 

CONPARE, RESTORE, COPY AND 
SORTDIR. 

FINDS ADDRESS OF CCP/BDOS 

RESTORE 

.CON 

4K 

Ir SIZE OF TPA. 

RESTORES ERASED FILES. 

SORTDIR 

.CON 

4K 

SORTED DIRECTORY PROGRAM. 

DUTIL 

.CON 

12K 

REVISION OF DISK UTILITY 

XLATE2 

.CON 

BK 

MITH EXTENDED FEATURES. 
TRANSLATES INTEL BBSS 

DIRSCAN 

.CON 

8K 

SOURCE TO ZILOO ZBB CODE. 
SCANS DIRECTORY. 

INDEXER 

.CON 

ZSK 

CREATES AN INDEX FOR A 

INDEXER 

.SUB 

4K 

BOOK OR ANY DOCUMENT 
AUTOMATICALLY. INCLUDES A 

PZKEY 

. INX 

4K 

SAMPLE PROGRAM. 

PZKEY 

.TRE 

4K 


INDEXER 

.DOC 

16K 

DOCUMENTATION. 

OKI 

.CON 

SK 

MENU FILE TO SEND CODE TO 

EPSON 

.CON 

SK 

OKIDATA 62/83. 

MENU FILE TO SEND CODE TO 

XDIR 

.CON 

4K 

EPSON NX PRINTERS TO 

SET TYPE SIZE. 

EXTENDED DIRECTORY. 

SUB 

.CON 

16K 

MENU FILE TO RUN THE MAJOR 

ERASE 

.CON 

BK 

CP/M COMMAND FILES. 

•USER FRIENDLY- ERASE. 

SIGNS 

.COM 

12K 

FORMATTING PROGRAM FOR 

SlQNSil 

.COM 

12K 

BOTH BB AND 132 COLUMN 
PRINTERS. 

SIGNS 

.TXT 

4K 


SIGNS 

.DOC 

4K 


816N$6 

.CON 

12K 


FONT 

.DAT 

4K 


DELBR 

.CON 

16K 

TO EXTRACT ,LBR FILES TYPE 

DELGRll 

.CON 

UK 

DELBR FILENAME. 

EXTRACTS .LBR FILES 

FTN0TE13 

.COM 

16K 

CP/N6B, B6 AND NSDOS. 
PRODUCES FOOTNOTES HITH 

FTN0TE13 

.DOC 

24K 

HORDSTAR. 

INSTRUCTIONS. 

0Ki2 

.CON 

4K 

REDEFINES KEYBOARD. 

QKi2 

.BUG 

4K 

■ ■ 

0K12 

.DOC 

12K 

DOCUMENTATION. 

6ASFK 

.ASN 

12K 

ROUTINE TO LOAD CIFER VDU 

CAT 

.CON 

4K 

FUNCTION KEYS WITH BASIC 
STATEMENTS. 

CATALOGUE SYSTEM. 

CAT2 

.COM 

4K 

■ « 

CRCK 

.CON 

4K 

CHECKSUM PROGRAM. 

CRCKLI8T 

.CRC 

4K 

CHECKSUM OF SOME FILES ON 

DDISK 

.COM 

BK 

THIS DISK. 

IMPROVED DISK DEBUGGER 

DDISK 

.MAC 

36K 

SOURCE OF THE ABOVE 

HAST 

.CAT 

4K 

SAMPLE CATALOGUE FILE, 

PRTHT/21 

.COM 

4K 

PRINT LISTINGS HITH DATE 

PRTHT/21 

.ASM 

32K 

AND TIME. 

SOURCE OP ABOVE. 

PRTHT 

.DOC 

4K 

DOCUMENTATION. 

PNS/5 

.ASM 

32K 

HORDSTAR PATCHER FOR 

PHS 

.DOC 

4K 

INTELLIGENT 
TERNINALS/PRINTER8 
INSTRUCTIONS FOR ABOVE. 

TESTzee 

.ZSM 

'4K 

TEST SOURCE FILE FOR ZBB 

ZBGASNUK 

.ABN 

bSK 

ASSEMBLER. 

IMPROVED ZBB ASSEMBLER. 

Z80ASMUK 

.COM 

12K 

> >r ■ 

ZSGDOCUK 

.DOC 

BK 

DOC FOR ASSEMBLER. 

UDCAT 

.CON 

12K 

IMPROVED DISK CATALOGUE 

UDCAT 

.MAC 

2BK 

PROGRAM. 

UDCAT 

.DOC 

BK 

DOCUMENTATION FOR ABOVE. 


DUTIL.COH 12K DISK UTILITY 
A vtry poMtrful disk dibbuggtr tbit lat* you vitH 
and alter any on diik data found by lector and 
track nuaberi You can recover eraied fllei by 
altering the diik directory, duep daaagad areai 
and reHrite thee back to diik, exaeine prograe 
code 'on-diik*, you can even Inspect and alter the 
operating lyiten tracks, perhaps to alter the 
loader code. Outil can provide a disk nap to 
indicate which sector and tracks are used by a 
particular file, this can let you love the good 
sectors froe an unreadable file so that you only 
have to recreate the one duff sector again. It is 
a good idea, at first usage, to switch on the 
printer with CTRL P before entering Dutil, this 
will produce a hardcopy of the help eenus for 
later reference. 

■ SB 

0K12.C0H 4K REDEFINES KEYBOARD. 

QK12.6U0 4K 

QK12.DOC 12K DOCUMENTATION. 

A Keyboard Redefinition Prograe by Tony Plalg. 
OwlkKey allows the user to assign character 
strings to keys. When a key having a string 
defined in this way is struck, the defined 
string, rather than the character noraally 
associated with the key, is delivered to the 

prograe running at the tiee. Key definitions nay 
be loaded froe files containing previously saved 
definitions, or they eay be defined on-the-fly, 
even while a prograe is running. Both noreal 
keys (i.e. keys generating a single character) 
and keys generating escape sequences are 
supported. The eaxiaue length of the defined 
string is 31 einus the length of the character 
or string noreally generated by the key in 
question. Thirty-one different keys eay be 
defined. 

■ ■■ 

RESTORE.CON 4K RESTORES ERASED FILES. 

Mill recover an ERAsed file. This will only work 
if the file data has not been overwritten. ERA 
only alters the first byte of the directory to 
erase a file. If the first byte of the directory 
entry Is ES (hex), the file is considered to be 
erased. RESTORE will zero that first byte. If the 
file data is undamaged all will be ok, if the file 
records have been reused since the ERA then chaos 
will result. It is best to only use Restore if you 
are sure that the disk has not been written to 
since the ERA was issued. 

■ BB 

XOIR.CON 4K EXTENDED DIRECTORY. 

Produces a better directory listing than OIR. 
Arranged in A-Z order with file sizes. Type XDIR 
or XDIR Bi set. 
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BLANK 

FOR LATER USE 
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